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IDENTIFICATION 
PRODUCT CODE: AC~E648C-MC 
PRODUCT NAME: CZTUUCO TU58 PERF EXER 
PRODUCT DATE: SEPT 1981 
MAINTAINER: DIAGNOSTIC ENGINEERING GROUP 
AUTHOR: R. J. ROSS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1979,1980,1982 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
+ hes PDP UNIBUS MASSBUS 
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CZTUUAO 


. INITIAL _REALEASE--PERF. EXER. FOR UP TO 8 TU58 CONTROLLERS 
WITH ONE OR TWO DRIVES EACH. 








CHANGES TO CZTUUAO 


THE PROGRAM WAS MODIFIED TO RUN UNDER THE NEW DIAGNOSTIC 
ee CHSAAO. AS A RESULT OF THIS CONVERSION, THIS 
PROGRAM NOW OPERATES IN 8K AND PAPERTAPE DISTRIBUTION 

REQUIRES ONLY ONE PART AK~E650B-MC. 














CHANGES TO CZ2TUUBO 


“CLR _@ XMSR(R5)"* HAS BEEN CHANGED TO ‘DEC @ oy a gl TO 
Pier nee THE PROBLEM OF a ee we ANY PREVIOUSLY SET 
PROGRAMMABLE SPEED IN THE DLV11~E,F, OR DC319 DLART WHEN 
THE TUS8 INIT SEQUENCE WAS TERMINATED. 


— 
a 







CHANGES TO CZTUUBI 


1. TEST 8 WAS ADDED TO THE DIAGNOSTICS BECAUSE THE TU58 HAS 
BEEN UPDATED TO USE MODIFIED RADIAL SERIAL PROTOCOL. 
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-REM & 
TABLE OF CONTENTS 


0 nae eh str ae 

1 PROGRAM ABSTRACT 

2 SYSTEM ght 

3 RELATED DOCUMENTS AND STANDARDS 
& DIAGNOSTIC HIERARCHY PREREQUISITES 
5 ASSUMPTIONS 

0 OPERATING INSTRUCTIONS 

1 HOW TO RUN THIS DIAGNOSTIC 

0 
0 
0 


ERROR INFORMATION 
PERFORMANCE AND PROGRESS REPORTS 
DEVICE INFORMATION TABLES 


0 TEST SUMMARIES 
GENERAL INFORMATION 


THIS DIAGNOSTIC a 2 FROM 1 TO 8 TUS58 CONTROLLER aaaree EACH 

OF WHICH MAY SUPPORT 1 OR 2 DRIVES. THE PROGRAM ggg NTS_ THE 
"MAINTENANCE MODE’ SuiTCH WITHIN ALL PACKET COMMANDS, THUS RETRIEVING 
—— INFORMATION FROM THE DEVICE UPON CERTAIN Device RECOGNIZED 


STATISTICAL SUMMARIES ARE PROVIDED FOR ALL UNITS TESTED. RETRIES 
ARE PERFORMED ON DATA@RELATED ERROR CONDITIONS. 


USE OF LOOP ON ERROR FLAG (:LOE) IS IMPLEMENTED BUT NOT 
RECOMMENDED FOR USE, SINCE THE LOOPS ARE QUITE LENGTHLY DUE 
TO COMMUNICATIONS PROTOCOL OVERHEAD. 


PROGRAM ABSTRACT 


IN ORDER TO EXERCISE MULTIPLE UNITS _IN AN EFFICIENT aera A 
ss a eed ALGORITHM BUILDS, THEN Pa THE NEXT COMMUNICATION 
PACKET (COMMAND OR DATA) FORMULATED BY EXECUTING MACRO CODE WITHIN 
THE TEST ALGORITHMS. THE USE OF MACROS TO a a a alt at at ICATIONS 


PROTO SWITCHING FROM TO 

REQUIRING 8 SEPARATE DEVICE “e-~ -. ADDITION TO THE SYSTEM 
STACK. THE TEST CODE RUNS AS A CO-ROUTINE WITH THE SCHEDULER,SO A 
TEST CODE PROGRAM COUNTER IS MAINTAINED FOR EACH UNIT “TSTPC(RS)"’. 


THE TESTS ARE PERFORMED USING THE SPECIFIED ALGORITHM ON AbD E 6°S. 
THEN REPEAT THE TEST AFTER SWITCHING DRIVES, IF ANY DRIVE gu UERE SELECTED. 


FOLLOWING THE TRANSMISSION OF 1 ta 3 TO EACH peyics by nd. XOF F 
PRECEEDING) THE UNITS ARE POLLED, AND THEIR ENTIRE R 
EVALUATED ROUND ROBIN. IF ANY ERROR INITIATES A RETRY. THE SCHED- 


SEQ 0003 


Oo 
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ULING ay aa IS MODIFIED TO COMMUNICATE WITH ONLY 1 UNIT UNTIL 
COMPLETION OF THE RETRY PROCEDURE. THEN, A RETRY BY ANOTHER UNIT 
MAY PROCEED, OR THE SYSTEM CONTINUES NORMALLY. 


THROUGHOUT THE PROGRAM, RS POINTS TO ONE OF 8 POSSIBLE DATA 

STRUCTURES CONTAINING STATUS, TEST PARAMETERS AND STATISTICAL 

INFORMATION FOR THE CURRENT UNIT, CALLED "UNIT'S DATA BLOCK’ 
TART” CLEARS STATISTICS. RESTART" AND “CONTINUE” DO NOT. 


UPON OCCURANCE OF A_ FATAL ERROR, THAT UNIT IS DESCHEDULED 
yo gg ALLOWING THE REMAINING (IF ANY) TO PROCEED WITH 


ERROR | DESCRIPTIONS: 


AN EXPLANATION OF THE EXTENDED ERROR INFORMATION FOLLOWS. SEE 
aS ptiog IN THIS LISTING SUBTITLED ‘ERROR MESSAGE 


BLOCK #: THE RECORD NUMBER (1 PER 512. BYTES) 
IN LAST COMMAND PACK. 
COMMAND : THE MOST RECENT COMMAND PACKET OP CODE. 
EXPCTD: THE DATA PATTERN USED ON WRITE COMMAND 
AND FOR DATA COMPARE AFTER READ OP. 
SUCCESS: THE SUCCESS CODE RECEIVED IN END PACKET. 
PAK SENT: TYPE OF PACKET JUST SENT (0 FOR DATA; 
1 FOR COMMAND) 
FLAG RCVD: FLAG BYTE OF PACKET CURRENTLY BEING 


CHECKED, OR 1ST BYTE OF RESPONSE. 


SINCE IN MAINTENANCE MODE TU58 WILL SEND A BAD DATA PACK WITH A 
"DATA CHECK’’ SUCCESS STATUS IN Li FOLLOWING END PACK, THE HOST 
WILL, UPON CHECKING THOSE DATA P “gi e DETERMINE ‘BA 

PACKET ERROR FIRST, THEN INTERPRET THE ye ng or TO DIFFERENTIATE 


A COMMUNICATIONS GLITCH ag sgn gs ee} VS. TU "DAT ay ECK*® ERROR CODE. 


ONE ERROR 
ONDITION THE SECOND ERROR MESSAGE WILL FONTAIH PERTINENT 
(NOT ZEROS ERROR NUMBER. 


SYSTEM REQUIREMENTS 


oe a CPU WITH AT LEAST 16K WORDS OF MEMORY AND CONSOLE 


TUS8 CONTROLLER AND DRIVE(S). DL, DLV, OR PDT COMPATABLE INTER- 


SEQ 0004 


Gl 
EF 
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FACE; AND REVISION ‘'I"' TUS8 MICROCODE (OR LATER) ASSUMED. 


SOF TWARE 


THE PROGRAM IS REVISION D DIAGNOSTIC SUPERVISOR COMPATIBLE. 
CONSULT XXDP+ USERS MANUAL FOR OPERATING INSTRUCTIONS. 


RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL CHQUS 


DIAGNOSTIC HIERARCY © PREREQUISITES 


a INTERFACE DIAGNOSTICS MAY BE RUN TO ISOLATE INTERFACE 


ASSUMPTIONS 


SYSTEM HARDWARE OTHER THAN TU58(S) IS OPERATIONAL. 


OPERATING INSTRUCTIONS 


0), THE 
HARDWARE CONFIGURATION TABLES FOR EACH UNIT. THAT. INFORMATION 
TU58 CSR - a OF RCSR OF DLV-11 OR OTHER INTERFACE 


VECTOR ADDR. - ADDRESS OF INTERRUPT VECTOR LOCATION. 


PDT INTERFACE == IS THE nee = A PDT 11/130, 
R SYSTEM WHOSE BUFFERS ARE: 


RCDB (AND XMDB) 
XMSR 


TEST DRO - YES OR NO 
TEST DR1 - YES OR NO 


Qa 
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SUBSEQUENT RESPONSES TO ‘‘CHANGE HW?"’ MAY THEN BE ‘'NO"’. 

THE STANDARD ADDRESS AND VECTOR LOCATIONS FOR THE PDT 11/130 
ARE 177170 AND 260 RESPECTIVELY. 

THE SOFTWARE QUESTIONS ARE AS FOLLOWS: 


NUMBER OF BLOCKS: TEST 4-7 == ONE MAY SELECT A MINIMUM OF 8, TO 
A MAXIMUM OF 512 BLOCKS TO WRITE, 
READ; WRITE VERIFY; AND READ REDUCED, 
AS EXPLAINED IN SECTION 6.0. 


FOR THOSE SAME READ AND WRITE TESTS 
i fe THE DRIVE NUMBER (0 OR 1) MAY 
BE ADDED TO DATA WRITTEN ON TAPE TO 
INSURE DRIVE SELECT BIT OPERATION. 


STATISTICS PRINTED AT EOP <= tees con ar OR NOT TO PRINT 
INFORMATION AT END OF PASS OR “C. 
THESE STATISTICS MAY ALSO BE RE- 
TRIEVED WITH THE *PRI*' COMMAND. 


COMPARE DATA ON READ =~ SELECTS WHETHER OR NOT TO DO A 
Hh COMPARE ON DATA PACKETS RE- 


ADD DR # TO DATA PATTERN 


PRINT PACKET ON ERROR =~ PRINTS 132. BYTE DATA PACKET ON A COMPARE 
ERROR, IF SELECTED. 


# ERRORS=DVC FATAL IF ‘EVL" SET == Ad USER SETS EVL FLAG (EVALUATE) 
MODE), HRD OR SFT ERROR MESSAGES 
BECOME DVC FTL ERRORS AFTER THE 
NUMBER SPECIFIED IS EXCEEDED. 


PRINT UNIT PROTOCOL SUMMARY (TEST 8) == PRINTS A TABLE anaenatehanen 
THE PROTOCOL OF EACH UNIT 


ERROR INFORMAT ION 


ERROR INFORMATION IS PROVIDED ON OCCURRANCE OF ERRORS AS OUTLINED IN 
SECTION 1.1. 


PERFORMANCE AND _PROGRESS REPORTS 


STATISTICS “¥ AVAILABLE PER SECTION 1.1 AT END OF PASS, CONTROL-C, OR 
UPON ENTERING A ‘PRI"’ 2 aaa THEY CONSIST OF # BLOCKS WRITTEN AND READ, # OF 
DATA ERRORS, HARD OR SOFT 


DEVICE INFORMATION TABLES 


SEQ 0006 


Gl 
EF 
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CONSULT SECTION SUBTITLED ‘DATA BLOCK FORMAT’ FURTHER ON IN THIS LISTING. 


TEST SUMMARIES 


INIT: 


OR 


TEST 1: 
TEST 2: 


TEST 3: 


TESTS 4-7: 


INIT IS SENT TO DEVICE IF: 

1. INIT CODE IN SUPERVISOR IS EXECUTED 

2. INIT IS REQUESTED BY DEVICE AS A RESULT OF 
ERROR. 


INITIATES FIRMWARE DIAGNOSTICS AT DEVICE LEVEL (SELF TES?) 


SEEK TEST. SEEKS BOT ON BOTH TRACKS, THEN 
VERIFIES 60 IPS OPERATION TO SEEK EOT ON 
ON BOTH TRACKS,ENDING THEN AT BOT. 


PERFORMS WRITE, THEN READ OF ADJACENT BLOCKS AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT. 


READS OR WRITES BLOCK # AS DATA INTO SUCCESSIVE BLOCKS 
ON TAPE, THE LENGTH OF WHICH IS DETERMINED BY SOFTWARE 

QUESTION #1: DEFAULT IS ye TAPE (8.) .MINIMUM 

(8.) RESULTS IN TRANSFER OF 8. (OR 4 PER TRACK) il: BYTE 


ALGORITHM SWITCHES TRACKS REGARDLESS OF THE NUMBER 
ys SELECTED. DRIVE NUMBER IS ADDED TO RECORD 


T,SO APE INTER 
TESTING, ANSWER (N) TO SOFTWARE (SW) QUESTION #2. 


NOTE: THE AMOUNT OF TIME SPENT IN TEST S 4-7 IS QUITE 
LONG IF THE FULL TAPE (512.) IS SELECTED. 


TEST 4: 
TEST 5: 
TEST 6: 
TEST 7: 
TEST 8: 


WRITE TAPE 

READ TAPE 

"WRITE VERIFY* TAPE 

READ MODIFIED THRESHOLD TAPE 

Menta a PART AH 8 DETERMINES IF A UNIT_IS 


PART OF THE TEST IS WRIT I L 
PROTOCOL, AND DETERMINES TH NEP ROTOCOL w A _UNIT BY 
SENDING THe TUS8 A GET Cae eel < cme AND 
MONITORING THE RESPONSE. IF T S_AN END 


CS COMMAND IS 
NOT NORMAL HER IT CONSISTS OF A DATA PACKET THAT 
1S 28. BYTES PLUS AN END PACKET WHICH IS 14. BYYES. 


SEQ 0007 


Gl 
EF 
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SEQ 0008 
THE SECOND re oF TEST 8 TESTS ONLY THOUGHS UNITS 


H IFIE 
MODIFIED UNITS JUMP OVER CODE. IT WAS ASSUMED Many IF 
UN EAD ,WRITE,ETC... WHEN OPERATING IN R 
THEN IT READ WRITE,ETC... WHEN OPERATING IN mp. 
THEREFORE ALL THAT HAD TO BE TESTED WAS THE ABILITY OF 
MODIFIED UNIT TO BE ABLE TO SEND ONE BYTE AND WAIT FOR 
A CONTINUE FROM THE gg BEFORE SENDING THE NEXT BYTE. 
A PROTOCOL SUMMARY OF THE UNITS IS sty owe BY AN- 
SWERING YES (Y) TO SOFTWARE (SW) QUESTION # 5. 


GL 
MI 


OGRAM HEADER AND TABLES 


PR 
REVIS 


ION HISTORY 


002000 


000001 
007020 
037614 
037756 
002174 
002206 
040422 
000000 
000000 
000001 
000000 
002152 
000340 


1 
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SEQ 0009 


- TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 
-ENABL ABS,AMA 
° = 2000 
eNLIST BEX 
BGNMOD 


ptt 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNSW,BGNSF T ,BGNAU,BGNDU,,BGNSE TUP 


HEADER (CZTUU,C,0,3600.,1,PRI07 


LSNAME : : 

ASCII /C/ 

ASCII /Z/ 

ASCII /T/ 

ASCII /U/ 

ASCII /U/ 

-BYTE 0O 

-BYTE 0O 

-BYTE O 
LSREV:: 

ASCII /C/ 
L$DEPO: : 

ASCII /0/ 
LSUNIT:: 

«WORD TSPTHV 
LSTIML:: 

-WORD 3600. 
LSHPCP:: 

-WORD  LSHARD 
LSSPCP:- 

-WORD LSSOFT 
LSHPTP:: 

-WORD LSHW 
LSSPTP:: 

-WORD LS$SW 
LSLADP: : 

«WORD LSLAST 
L$STA:: 

-WORD 0 
LS$CO:: 

-WORD 0 
LSDTYP:: 

-WORD 1 
LSAPT:: 

-WORD O 
LSDTP:: 

-WORD LSDISPATCH 
LSPRIO:: 

-WORD PRIO7 


LSENVI:: 


> 


PROGRAM 


HEADER AND TABLES 
ADER 


PROGRAM HE 


002044 000000 
Be ee 000000 
002050 003 

1 003 


002052 000000 
54 000000 


002056 000000 
909060 005506 
909069 015014 
902064 000000 
000000 
igs Ta 017146 
002072 017022 
oosone 000000 
002076 002122 
002100 104035 
003105 000000 
905104 016030 
017002 
016620 
002142 
000000 
000000 
002120 000000 


ttre ts 
AXALAWUNICO 


002122 124 


125 


kK 1 
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065 


DESCRIP <TU58 PERF EXER> 


LSEXP1:: 
LSMREV:: 


LSEF:: 


L$SPC:: 
LSDEVP:: 
LSREPP: : 
LSEXP4:: 
LSEXP5:: 
LSAUT:: 
LSDUT:: 
LSLUN:: 
LSDESP:: 
LSLOAD: : 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP: : 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME:: 


LSDESC:: 


SEQ 0010 
0 
0 
eesyisim 
0 
LSDVTYP 
LSRPT 
0 
0 
LSAU 
L$DU 
0 
LSDESC 
ESLOAD 
0 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
0 
0 
0 


/TUS8 PERF EXER/ 


Se 


— 


PROGRAM + ned AND TABLES 
PROGRAM HEADE 


498 

499 

500 

501 

502 

503 002142 
002142 

504 002142 000000 

505 002144 177777 

506 002146 177777 

507 002150 


L 
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‘THE PROTECT TABLE IS USED BY THE MONITOR TO WARN THE OPERATOR WHEN HE 
; TRIES TO TEST THE LOAD DEVICE. 


BGNPROT 


. WORD 
» WORD 


ENDPROT ~ 


1 


DEVICE CSR 
SS_BUS 


zNO MASS 
NO 


LSPROT:: 


SEQ 0011 


GL 
DE 


-— 


PROGRAM HEADER AND TABLES 


PROGRAM 


MUNN 
ed et od dd 


Mmror 
M—OOONOUS 


523 


HEADER 


000010 
017150 


024560 


ba 
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-SBTTL DISPATCH TABLE 


T IS USED BY THE SUPERVISOR TO DISPATCH TO EACH T 


DISPATCH 8 


:" THe DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


-WOR 
LSDISPATCH:: 


SEQ 0012 











N 
PROGRAM HEADER AND TABLES MACRO M1113 25-SEP-81 10:06 PAGE 8 
DEFAULT HARDWARE P-TABLE SEQ 0013 


531 .SBTTL DEFAULT HARDWARE P-TABLE 
338 + 
i+ 
534 : THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
535 ; THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
298 :; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
538 
539 002172 BGNHW DFPTBL 
002172 000004 -WORD £L10001-L$HW/2 
002174 LSHW:: 
500 002174 DFPTBL:: 
541 002174 176500 -WORD 176 
542 002176 000300 «WORD 300 VECTOR ADDR. 
543 002200 000003 «WORD 3 ‘TEST DRIVE ZERO AND ONE 
one 002202 000000 ~ WORD 0 ‘NOT PDT TYPE INTERFACE 


551 
552 002204 ENDHW 
002204 


. 
| 
| 

500 CSR ADDRESS 

L10001: 
| 





eres 
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SOFTWARE P-TABLE SEQ 0014 
eee -SBTTL SOFTWARE P=-TABLE 
556 3+ 
557 ; THE SOFTWARE P=-TABLE CONTAINS THE VALUES OF ing PROGRAM 
e38 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR 
560 2 
561 002204 BGNSW SFPTBL 
002204 000007 «WORD 110002-L$SW/2 
002206 L$SW:: 
5 002206 SFPTBL:: 
563 002206 000010 LENGTH: .WORD 8. 3 TAPE LENGTH 
564 002210 000001 STAEOP: .WORD 1 sPRINT STATISTICS AT EOP 
565 002212 000001 PRBUF: .WORD 1 sPRINT DATA BUF ON COMP. ERROR 
566 002214 000001 CMPDAT: .WORD 1 2S gal 
567 002216 000001 DRVCHK: .WORD 1 TADD DR # TO DATA 
568 002220 000001 EVLTHR: .WORD 1 : THRESHOLD FOR EVL TEST 
26° 002222 000000 PPSOT8: .WORD 0 ‘PRINT UNIT PROTOCOL SUMMARY (TST8) 
577 
578 002224 ENDSW 
002224 L10002: 


579 
580 002224 ENDMOD 


eo 


GLOBAL AREAS 


SOFTWARE P-TABLE 


593 
594 
622 


6 
oe? 002224 


6 
640 002224 
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100000 


000034 


000340 
000300 


-TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


:* 


THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


;_ARE USED IN MORE THAN ONE TEST. 


EQUALS 
; BIT DIFINITIONS 
BIT15== 100000 
B1T14== 40000 
B1T13== 20000 
BIT12== 10000 
B1T11== 4000 
BIT10== 2000 
B1TO9== 1000 
BITO8== 400 
BITO7== 200 
B1T06== 100 
BITO5== 40 
BIT04== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 
BIT9== BITO9 
BIT8== B1T08 
BIT7== BIT07 
BIT6== BIT06 
BIT5== BITOS 
BIT4== BIT04 
BIT3== BITO3 
BIT2== BI1T02 
BITi== B1T01 
BITO== B1T00 


* EVENT FLAG DEFINITIONS 


3;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. 
EF-RESTART== 31. 
EF.CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 


PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
PRI06== 300 


: 
: 
Py 
4 
° 


START COMMAND WAS ISSUED 
ohet ite COMMAND WAS ISSUED 
CONTINUE COMMAND S 


WAS ISSUED 
; A NEW PASS HAS BEEN STARTED 
A POWER-FAIL/POWER-UP OCCURRED 


SEQ 0015 





YQ 
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GLOBAL EQUATES SECTION SEQ 0016 


000004 
000010 
000020 
000040 


40000 
100000 





eS el hina sitacte ase 


Ya 
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ERROR CODE EQUATES SEQ 0017 
$28 -SBTTL ERROR CODE EQUATES 
656 3 THE ERROR CODE OFFSET VALUES : 
657 ;USED BY ROUTINE ‘LOG’ TO INDEX (BY R5) INTO DEVICE'S DATA BLOCK AND 
628 s INCREMENT STATISTICS. 
660 000002 SFTRD == 2 
661 000004 SFTWR == 4 
662 00006 RCINIT == 6 
663 000010 OTL == 8. 
664 000012 OVRN == 10. 
665 000014 BDCOM == 12. 
666 000016 HRDRD === 14, 
667 000020 HRDWR = == 16. 
668 000022 BDCHK == 18. 
000024 SKERR == 20. 
670 000026 WRLOCK == 22. 
671 000030 OMOT == 24. 
672 000032 CNINIT == 26. 
673 000034 PARTL_. == 28. 
674 000036 NOUNIT == 30. 
675 000040 CMNDER == 32. 
676 000042 RECERR == 34. 
677 000044 SLFER == 36. 
678 0046 SUCOTL == 38. 
679 000050 TORCVB == 40. 
680 000054 NCART == 44, 
os) 000056 TOSNDB == 46. 
rr : IN ADDITION, SYSTEM SETUP OR RUNTIME ERRORS ARE: 
7 : 100. - ALL UNITS ABORTED 
yx t4 : 101. - MORE THAN 8. UNITS (16 DRIVES) REQUESTED 
prt ; 102. - NEITHER DRIVE SELECTED FOR THIS CONTROLLER 
691 : ALL THE ABOVE ARE CLASSIFIED AS SYSTEM FATAL 


YQ 


GLOBAL AREAS 
GENERAL EQUATES 
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-SBTTL GENERAL EQUATES 
sRADIAL SERIAL CODES: 
;THE FLAG BYTE CODES ARE 
000002 SCMND == 2 
000020 RSCONT == 20 
000020 RSXON == 20 
000023 RSXOFF == 23 
000004 RSINIT == 4 
000001 RSDATA == 1 
000002 SEND == RSCMND 
sEND PACK SIZE: 
000016 SN == 14, 
sMESSAGE PACK SIZE: 
000012 R == 12 
zDATA PACK SIZE: 
000204 RSDASZ == 132. 


sDATA + END PACK SIZE: 
= RSDASZ 


;‘\COMMAND"*, PACKET 
"CONTINUE" SINGLE BYTE 
N™ SINGLE BYTE 
;"MOFF'* SINGLE BYTE 
; pM SINGLE BYTE 
;"END'' PACKET FLAG IS ‘‘COMMAND'’ 


TOTAL BYTES IN COMMAND PACKET 
310. BYTES FOR BYTE COUNT INSIDE CMND PACK 
TOTAL BYTES IN DATA PACKET 


000222 +RSNDSZ 
3GET CHARACTERISTICS DATA PACKET SIZE 
000034 RSGCDP TOTAL BYTES FOR GET CHAR DATA PACKET 
?MINU NUS THE END PACKET 
000016 RSSNSZ == RSMSIZ + 4 :SIZE Ne SENDING COMMAND PACK 
001036 RCBF SZ== ” G#RSDASZ+RSNDSZ 74 DATA PAKS AND END PACK 
31S SIZE OF RCV BUFFERS 
: THE OP CODES ARE: 
000100 RSSEND == 100 END PACK DESCRIPTOR 
000003 RSSWR == _3 s WRITE 
000002 RSSRD == 5 
000005 RSSSEK == 5 SEEK 
000012 RSSGET == 12 :GET CHARACTERISTICS 
000000 SSNOP == 0 3NO-OPERATION 
000001 RSSNIT == 1 : INITIALIZE 
000007 RSSSLF == 7 sSELF TEST 
THE SUCCESS CODES ARE: 
177720 SABO ==-48. ;BAD COMMAND FROM HOST 
177767 ESNCRT ==-9. 3NO CARTRIDGE 
177770 ESNONX ==-8. RIVE 
000000 SOK ==0 SOP COMPLETE SUCCESS 
177776 ESPART ==-2 ;PARTIAL OP 
177740 SSK ==-32. SEEK ERROR 
1 STRY ==1 ;RETRYS OCCURRED 
177765 ESWLOC ==-11. :WRITE PROTECTED 
177737 Ss ==-33. ;MOTOR STOPPED 
177720 ESCMD ==-48, ; COMMAND ERROR 
177711 ESREC ==-55. ;BAD RECORD A 
177757 ESCKS ==-17. U CHKSUM ERR 
177777 ESSLF ==-1. ‘SELF TEST ERROR 
177757 ESCKSM=ESCKS 
177757 ESWR=ESCKS 
177757 ESRD=ESCKS 


SEQ 0018 
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ERROR MESSAGE DESCRIPTIONS SEQ 0019 

ce: -SBTTL ERROR MESSAGE DESCRIPTIONS 
754 7 THE TABLE OF ERROR MESSAGES (ADDRESSES). ABNDX(R5) CONTAINS THE OFFSET 
£33 3OF THE REASON. IT'S ABSOLUTE ADDRESS IS RSNTAB + ABNDX(R5). 
757 002224 002320 RSNTAB: MSNLOG 
758 002226 003052 MSSFRD 
759 002230 003112 MSSFWR 
760 002232 002534 MSRNIT 
761 002234 002776 MSQRSP 
762 002236 003256 MSOVRN 
763 002240 002402 MSC 
764 002242 003152 MSHDRD 
765 002244 003214 SH 
766 002246 002554 MSHCHK 

250 002304 MSSKER 
768 002252 002512 MSWPRO 
769 002254 002444 MSNOMO 
70 002256 002616 MSNIT 

60 002632 MSPART 
772 002262 002654 MSUNIT 
773 002264 002702 MSCMD 
774 002266 002716 MSREC 
775 002270 002362 MSSELF 
776 002272 002736 MSWRSP 

002762 MSNRSP 

778 002276 002320 MSNLOG 
779 002300 002462 MSNOTP 


780 002302 003030 MSTOSN 
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ERROR MESSAGE DESCRIPTIONS SEQ 0020 


782 sHERE ARE THE MESSAGES PROPER: 

784 002304 123 MSSKER: : sASCIZ /SEEK ERROR/ :DEVICE COULD NOT READ HEADER 

£86 002320 MSNLOG::  2ASC /SYSTEM ERROR/ :DIAGNOSTIC HUNG. BETTER RE-BOOT 

788 002336 MSBDA:: . /BAD DATA IN PACKET/ HOST DATA CHECK FOUND ERROR, DEVICE MAY 

789 EVEN SHAVE READ C 

790 002362 MSSELF:: /SELF TEST ERROR/ *MICRO DIAGNOSTIC FAILED, BUT DEVICE COULD STILL 
1 EVEN ‘SEND AN END PACKET. 

792 002402 MSCOM: : /BAD DATA W-O DATA CHECK" ERR AT TU/ ;PREVIOUS DATA CHECK 

793 EVE OR NOT DUE TO DEVICE READ OPERATION 

79% 002444 MSNOMO: : ASC /MOTOR STOPPED/ SDEVICE COULD NOT GET ANY MEANINGFUL SIGNAL 

796 002462 MSNOTP::” 2A ¢ /CARTRIDGE NOT IN PLACE/’;:NO MEDIA OR BAD SWITCH 

798 002512 , MSWPRO: : ASC /WRITE PROTECTION/ ; CARTRIDGE WRITE PROTECT TAB MISSING OR 

800 002534 MSRNIT::— ASC /RECIEVING INIT/ DEVICE SENT INIT REQUEST 

802 002554 MSHCHK::- ASC /HOST FOUND PACKET CHECKSUM ERROR/ _ DEVICE SENT PACK WITH 

804 002616 MSNIT:: . /CAN'T INIT/ ‘DEVICE SENT BYTE OTHER THAN “‘CONTINUE"’ 

EVEN SDURING INITIALIZATION 
306 002632 MSPART: : ASC /PARTIAL OPERATION/ TEND OF MEDIUM ENCOUNTERED 
808 002654 MSUNIT::— ASC /"'NON-EXISTENT'’ DRIVE/ ;DEVICE RECV'D TOO LARGE DRIVE NUMBER 


810 002702 MSCMD:: . /BAD COMMAND/ :DEVICE COULD NOT UNDERSTAND HOST 


els 002716 MSREC: : “ASE /BAD RECORD NO./ DEVICE RECV'D TOO LARGE A RECORD NUMBER 

814 002736 MSWRSP: : /WRONG SUCCESS CODE/ sHOST COULD NOT DECIPHER CODE IN END PACK 

Big 002762 NSMRSP::"-ASC /NO RESPONSE/ TIME OUT WAITING FOR BYTE IN RCV BUF ON INTERFACE. 
818 002776 MSQRSP: : \INDECIPHERABLE FLAG BYTE\ pest COULD _NOT UNDERSTAND bi A nln OF 


~EVEN S FROM TU AS PROPER PROT 
ase 003030 MSTOSN: : ! /TIME OUT ON SEND/ [DLV "READY' NEVER WENT HIGH 


EVE 

822 003052 MSSFRD:: /RECOV. DATA CHECK ERR ON RD OP/ ;TUS8 RESPONDED WITH "DATA-CHECK"’ 
.E sERROR ON READ OP. :HOST RETRY(S) SUCCESSFUL 

824 003112 MSSFWR:: -ASCIZ /RECOV. DATA CHECK ERR ON WR OP/ ;SAME BUT UR OR WR VERIFY OPERATION 


-EVE 
826 003152 MSHDRD: : /UNRECOV. DATA CHECK ERR ON RD OP/_ ;TUS8 RESPONDED WITH *DATA-CHECK’* 
-EVEN zERROR ON -_ OP. ;RETRIES UNSUCCESSFUL 
ase 003214 MSHDWR:: .A /UNRECOV. DATA CHECK ERR'ON WR OP/ ;SAME BUT WR OPERATION 


-EVEN 
oa 003256 MSOVRN: : a /DLV ERROR IN RECEIVE/ ;DLV ERROR (THE CONTENTS PRINTED OUT) 
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MISC STORAGE AND EQUATES SEQ 0021 

ge? -SBTTL MISC STORAGE AND EQUATES 

835 

836 003304 000000 SYSTAT:: .WORD sSYSTEM STATUS WORD 

837 ;BIT7-B1T15 = 1ST BYTE OF PACK RCVD 
:B1TOS = NOT USED 

839 3B1T04 = NOT USED 

840 3B1T03 = NOT USED 

841 3BI1T02 =RETRY BAD FLAG BYTE 

842 3B1T01 = RETRY OCCURRING 

Bez 7B1T00 = CHKSUM IS ODD (TEMP STORAGE) 

845 003306 000000 TAPLEN:: .WORD 34 RECORDS 

846 003310 000000 DEVPTR:: .WORD 3>>NEXT_UNIT ADDRESS 

847 003312 000000 RCFLG:: .WORD TEMP STORE FOR GTBY 

848 003314 000000 RCBCNT: .WORD 7 TEMP STORAGE FOR GTBYTE 

849 003316 00000 FTLNM:  .WORD 4 R OF TRIES BEFORE ABORT 

850 003320 000000 DONE:: . :1_IF TEST ALGORITHM COMPLETE 

851 003322 IDPTR:: .WORD :PTR IN TESTI 

852 003324 000000 TSTTOP: .WORD sPOINTER TO CURRENT TEST 

853 003326 000010 MXRTRY:: .WORD 8. sNUMBER OF RETRIES, BEFORE ‘HARD'’ ERROR 

854 003330 000000 BLKER:: .WORD RECORD # FOR ERROR REPOR 

855 003332 000000 SECREC:: .WORD ;RECORD # TO START AFTER SWITCHING TRACKS 

856 003334 000000 PRNSIZ:: .WORD 7SIZE OF PACK F NPAK** 

857 003336 000000 ALLGON:: .WORD ZSECONDARY DON'T PRINT STATISTICS FLAG. 

S26 003340 000000 TEST8:: .WORD pxeeee FLAG THAT INDICATES IF IN TST 8 

860 

861 

bee : TIME OUT CONSTANTS: 

864 003342 177777 CSNRDY:: =1 TIME OUT ON SEND DELAY (DLV_NOT READY) 

865 003344 000226 CSRCVB:: 150. 745 SEC. MULTIPLIER REWIND TIME 

866 CAN BE OPTIMISED PER CPU 


— 


GLOBAL AREAS 
DATA BLOCK FORMAT 


000000 
000002 
000004 


000020 
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SEQ 0022 
- SBTTL DATA BLOCK FORMAT 
TRS --> TOP OF 1 OF THE 8 DATA BLOCKS (1 PER UNIT) DURING EXECUTION 
:@R5 IS THE STATUS WORD oon 
3B1T14 = SEND “BREAK*’ 
3BIT13 = RETRY FLAG BYTE ERROR (DATA PACKS) 
sB1T12 = TEMP STOR WRITE MACRO 
:B1T11 = UNIT NOT BEING TESTED 
3BIT10 = RETRYING DATA ERR 
sB1T9 = TUS8 CHKS ROR 
sBI1T8 == RD/WR OPE 
BIT? = NORMAL/REDUCED ee (MACROS) 
sBIT6 = HOST DATA C E ERR 
:BITS = WR VERIFY OPERATION 
3BIT4 = TYPE OF PAK SENT ODATA 1CMD 
:B1T3 == mtuatt FLAG BYTE ERR. (SEND COMMAND PACK) 
7B1T0,1,2=UNIT NO. 
STATUS == 0. :DEVICE STATE 
RETRY == 2. 7# OF RETRIES 
ABNDX == 4. ERROR NUMBER FOR LOG 
:RO STORAGE FOR REGISTERS USED IN TEST BODY 
3R1 STORED WITH SWAPOW 
eRe RETRIEVED WITH SWAPIN 
;R4 : 
TSTPC 3=—== 16. POINTER TO NEXT EXECUTABLE TEST INST. 
RCSR ss 18. DLV RCV STATUS ADDRESS 
RCDB Bs 20. DLV RCV DATA E 
XMSR =s 22. DLV SND STATUS ADDRESS 
XMDB == 24. 3 SND DATA 
XSPKNM == 26. THE NUMBER OF PACKETS TO RECEIVE 
XSFLG === 28. ZTHE EXPECTED FLAG OF 1ST gt 
XSCNT == 30. i THE EXPECTED COUNT OF 1ST PACKET 
;FOR MULTIPLE PACKET RECIEVES (MAX.4) 
: BLKW 8. :CONSECUTIVE XSFLGS AND XSCNTS 
DR ss 48. ;DR==0 OR 1; BIT8,9 DRIVE SELECTED BY OPERATOR 
TRK == 50. :COUNTER FOR TRACK NUMBER 
REC == 52. RECORD (BLOCK #) 
TMP == 54. TEST MACRO 3 gt bh 
SNDCENT == 56. ;THE # OF BYTES FOR SENDING PACKET 
PATTEN == 58. : TA_PATTERN-LOWER BYTE USED 
DLV == 60. ONTENTS OF RCDB ON DLV eS 
SUCCS. == 62. i SUCCESS CODE OF LAST END PACKET 
CMDSNT == 64. sTYPE OF COMMAND CURRENT IN EVEN BYTE; BIT15==VERIFY OP. 
RCVBUF == 66. sPOINTER TO 542. a's BUFFER (4 DATA PAKS + END PACK) 
PKPTR == 68. : POINTER TO TOP OF PACKET 
XSPTR == 70. : He! ER TO URRENTLY USED XSFLG OR XSCNT 
TNO == 72. : OF 512. BYTE BLOCKS WRITTEN DRO 
WRTINT == 74. : t OF 512. BYTE BLOCKS WRITTEN DRI 
RDNO zs 76. ‘THE # OF 512. BYTE BLOCKS R 
RDN1 == 78. ;THE # OF 512. BYTE BLOCKS READ DR1 
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DATA BLOCK FORMAT SEQ 0023 
923 z;AND THE ERROR LOG.. teoceococoe= 
924 ;SPLIT INTO A BYTE PER DRIVE: ! DRI ! DRO H 
359 
ase sOFFSET IN DATA BLOCK sERROR TYPE sERRCODE;MSG CODE ; SUC. CODE 
930 ‘ 
931 000120 LGOFST == 80. 3s **RESERVED** 
932 000122 SOFTR == 82. sSOFT READ sSFTRD ;MSSFRD ;ESCKSM 
933 000124 SOFTW == 84. sSOFT WRITE sSFTWR ;sMSSFWR ;ESSKSM 
934 : WOXD sRECIEVED INIT ;RCINIT ;MSRNIT ;***%e0% 
eee : WORD ;BAD FLAG BYTE ;O0TL SMSQRSP ;xee00% 
414 : THEN THOSE CODES WHICH HAVE N TRIES BEFORE ABORT 
$39 000132 T4TRY == 90. ;DLV ERROR sOVRN ;MSOVRN ;*%*ee08 
940 000134 BDATA == 92. :BAD DATA ;BDCOM SMSDATA : skeeene 
941 000136 DR <== 94. ;HARD READ sHRDRD ;MSHDRD SESCKSM 
942 000140 HARDW = == 96. At yy sHRDWR ;MSHDWR ;ESCKSM 
943 3 WORD CHK T HOST ;BDCHK ;MSHCHK ;***e0% 
944 : WORD SEEK “ERROR TOTAL; ay SMSSKER ;eee208 
945 000146 TITRY == 102. 3WRITE P ROTECT sWRLOCK sMSWPRO ;ESWLOC 
946 s WORD MOTOR sNOMOT ;MSNOMO ;ESNOMO 
947 : WORD > CANT INIT :CNINIT sMSNIT 3 ;eeeee8 
948 : WORD sPARTIAL OP :PARTL ;MSPART ;ESPART 
949 2 WORD 7NO UNIT sNOUNIT ;MSUNIT ; x 
950 3 WORD ;COMMAND ERROR ;CMNDER ;:MSCMD ;ESCMD 
951 5 WORD 3;BAD RECORD NO. :RECERR ZMSREC ;ESREC 
952 ; WORD sSELF TEST ERROR;:SLFER :MSSELF ;**ee0% 
953 3 WORD WRONG SUC.CODE ;SUCOTL ;MSWRSP ;**200% 
954 : WORD NO RESPONSE sTORCVB ;MSNRSP ;eeeen8 
955 3 WORD 3s **RESERVED** 
956 3 WORD [NO CARTRIDGE  ;NOCART ;MSNOTP ;ESNCRT 
cdf 3 WORD TIME OUT SEND;TOSNDB ;MSTOSN ;**eee% 
959 
960 000202 BLKEND == 130. sOFFSET OF END OF STATISTICS (RESERVED) 
961 000204 TUVECT == 132. ;VECTOR ADDRESS 
962 000206 SAVCNT == 134. sBYTE COUNT SAVED DURING RETRY ON WRITE OPERATION 
963 000210 SP s= 136. peenee FLAG INDICATING MRSP 
43 000212 BLKSIZ == 138. the RESERVED * 
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DEVICE DATA BLOCK ALLOCATION SEQ 0024 

oo8 .SBTTL DEVICE DATA BLOCK ALLOCATION 
970 
+4) s TABLE OF DEVICE DATA BLOCK ADDRESSES 
973 
974 003346 003366 BLKTBL:: -WORD DEVO 

975 003350 003600 «WORD DEV! 
976 003352 004012 -WORD DEV 

977 003354 004224 WORD DEV 

978 003356 0044 -WORD DEV4 

979 003360 004650 «WORD DEVS 

980 003362 005062 -WORD DEV6 

1 003364 005274 LSTDEV:: -WORD DEV? 
983 
oae sAND STORAGE FOR EACH: 
986 DEVO BLKB- BLKSIZ 

987 003600 DEV1 BLKB- BLKSIZ 

88 004012 DEV2 BLKB- BLKSIZ 

989 004224 DEV3 -BLKB- BLKSIZ 

DEV4 -BLKB = BLKSIZ 

991 004650 DEVS -BLKB- BLKSIZ 

992 005062 DEV6: -BLKB- BLKSIZ 

993 005274 DEV?: -BLKB- BLKSIZ 


GL 
SY 
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. 
GLOBAL TEXT SECTION SEQ 0025 | 
1009 .SBTTL GLOBAL TEXT SECTION 
1911 | 
1012 ; NAMES OF DEVICES SUPPORTED BY PROGRAM | 
1014 005506 : DEVTYP <TUS8 CONTROLLER> | 
005506 LSDVTYP:: 
005506 124 125 065 -ASCI? /TUS8 CONTROLLER/ 
1015 ¥ 
1027 
1028 
1046 


ee 


£2 
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SYSTEM MACRO DEFINITIONS SEQ 0026 
1055 .SBTTL SYSTEM MACRO DEFINITIONS 
1057 .MACRO PUSH  ,REG 
1058 
1059 .NLIST 
1060 “LIST ME 
1061 ST 
1062 MOV REG, -(SP) 
1063 
1064 
1065 .NLIST 
1066 “NLIST ME 
1067 “LIST 
1068 “ENDM 
1069 
1070 .MACRO POP,REG 
1071 
1072 .NLIST 
1073 “LIST ME 
1074 LIST 
1075 MOV (SP) +, REG 
1076 
1077 .NLIST 
1078 “NLIST ME 
1079 LIST 
1080 -ENDM 
1081 
1082 p++ 
1083 [THE MACRO 'SWAPIN' RETRIEVES THE TEST REGISTERS WHICH WERE SAVED 
1084 TIN THE DEVICE DATA BLOCK. 
1085 i-- 
1086 
1087 .MACRO SWAPIN 
1088 
1089 . .NLIST 
1090 “LIST ME 
091 LIST 
092 MOV 6. (R5) RO 
093 MOV 8.(R5).R1 
094 MOV 10. (R55 ,R2 
095 MOV 12. (R5).R3 
096 MOV 14. (R5).R4 
097 
098 .NLIST 
099 “NLIST ME 
“LIST 
“ ENDM 


itt 
THE MACRO *SWAPOW' SAVES THE CURRENT STATE OF THE UNIT IN THE DRIVE 
:DATA BLOCK IN SO THAT THE SCHEDULER MAY ‘SWAPIN' ANOTHER UNIT. 


«MACRO SWAPOW 


»NLIST 
~LIST ME 


— a Lg a SS SS Ss Ss Ss SS SS SS oO oe 


-——-Sc00 So 
ASSRIESRALSS 
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»NLIST 
eNLIST ME 
«LIST 
~ENDM 
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SYSTEM MACRO DEFINITIONS SEQ 0027 
1 LIST 
1 MOV RO,6.(R5) 
14 MOV R1,8.(R5) 
15 MOV Re 19. (2) 
16 MOV R35,12.(R5) 
17 MOV P4,14.(R5) 
18 
19 
20 
21 
22 


AS SS Ss ew 
J ss ss ds 
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GLOBAL AREAS 
SYSTEM MACRO DEFINITIONS 
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: THE WRITE 5 pateeT IMPLEMENTS THE COMPLETE PROTOCOL NECESSARY TO BUILD 


C 
3 (BENT) i SATISFIE 


SETS UP THE EXPECTED Ne ovies AND. COUNTS 


D). 


3 (XSPKNM) AND THEIR FLAG 
g RSVP 0 SEND EACH PACKET, AND ‘CHKSUM’ TO CALC. THE PACKET 


INPUTS = DEVICE BLOCK @R5 
ee BUFFER ADDRESS 
S TEST eee: FROM 'SWAPIN' 


UNIT 
OUTPUTS = SNDCNT(RS) ="# OF BYT 
XSPKNM = # OF PACK 


XSFLG 
XSCNT 


* 
+ * 
® 

= * 


ACK 
BYTE COUNT OF 1ST PACKET 
SUBSEQUENT XSFLGS 


AND XSCNTS 


T AND SUBSEQUENT DATA PACKETS (UNTIL THE BYTE COUNT 


THE NUMBER OF PACKETS 


OUNTS (XSFLG, XSCNT). CALLS 


-MACRO TUWRIT PTRN,REC,BCNT,DR,VER,2A,?7B8,2C,2D,7E,2F,?G,?H,?T 


«NLIST 
-LIST ME 
ST 


SEQ 002E 


#TRBUF ,RO :MAKE COMMAND PACKET: 
#RSCMND , @RO : FLAG 
WRSMSIZ.1(RO) :THIS SIZE 
#RSSWR,2(RO) INSERT OP CODE-WRITE 
VER, 3. (RO) [VERIFY (1 OR 0) 
DR, 4. (RO) :DRIVE # 
#020 5. (RO) [MAINTENANCE MODE SWITCH 
[NO SEQUENCE # 
BCNT,8. (RO) :TOTAL COUNT TO WRITE 
REC, ie (RO) TAT RECORD N 
#RSMS12,R1 :THE PACKET SIZE PLuS+2 
(R1)+ LAG AND COUNT) INTO R1 
#RSSNSZ, SNDCNT (RS) :LOAD THE | SIZE 10 SEND 
CHKSUM 7RO <=> R1=COUNT 
R1, (RO) :PUT CHK HKSUM IN PACKET 
T UP EXPECTATIONS: 
#RSCONT, XSFLG(RSS FLAG 
#1,XSCNT (RS) THE. 
#1.XSPKNM(R5S) =: THE # PACKETS EXPECTED 
BCNT ,R2 [GET # OF DATA BYTES 
‘SEND (AND RETURN TO SCHEDULER) 
#B1T3,aR5 ZF LAG BYTE ERROR? 


ES 
#81112, ans ZELAG FOR vey PACKET 
ae OB. 
START DATA PACKET (S) 
CNT >_128.! 


‘ :B 
R2,R1 :BCNT<128. 


ryt tag z:POINT TO TOP OF BUFFER AGAIN 
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SYSTEM MACRO DEFINITIONS SEQ 0029 
1182 BIS #B1T12,aR5 :S0 LAST PACKET NOW 
1183 BR SUSE REMAINING COUNT 
1184 B MOV #128. ,R1 ‘USE 128. BYTES 
1185 C MOVB = R11 (RO) ‘COPY COUNT TO BUFFER 
1186 MOV : *R3=COUNTER TO LOAD BUFFER 
1187 MOVB = #RSDATA, aRO SFLAG FIRST 
1188 TST (RO) + :SKIP COUNT 
1189 D: MOVB = PTRN,, (RO) + ‘INSERT DATA 
1190 DEC R3 *MORE? 
1191 BHI D YES 
1192 MOV #TRBUF ,RO t==>TOP AGAIN 
1193 MOVB = 1(RO) RI :GET COUNT 
1194 BIC #177400,R1 :ZERO SIGN EXTEND 
1195 MOV R1,SNDCNT(RS) HOW MANY TO SEND PLUS 
1196 ADD #4.SNDCNT(R5) FLAG, COUNT, CHKSUM 
1197 ADD #2.R1 [COMPENSATE FOR FLAG + COUNT 
1198 CALL § CHKSUM ‘FOR CHECKSUM CALC. 
1199 MOVB = R1, (RO) + SCHKSUM INTO PACKET 
1200 SWAB SEVEN ON AN ODD 
1201 MOVB _—R1,, (RO) + ‘BYTE BOUNDARY 
120 BIT #BiTi2,aR5 SLAST DATA PACKET? 
1204 MOV ARSEND,XSFLG(RS) ;YES-EXPECT ‘END’ 
1205 MOV ARSNDSZ,XSCNT(R5) °:OF THIS SIZE 
1206 mov #1,XSPKNM(RS)  ;AND 1 PACKET 
1208 E: MOV WRSCONT,XSFLG(R5S ; (NOT LAST), EXPECT "CONTINUE' 
1209 MOV #1,XSCNT(RS) AND 1 BYTE 
1210 MOV #1,XSPKNM(R5) AND 1 PACKET 
1211 F CALL svP SSEND PACKET 
1212 SAND RETURN TO SCHEDULER 
1213 BIT #BIT3,aR5 [FLAG BYTE RETRY? 
1214 BNE T YES 
1215 BIT #B1T10,aR5 SRETRY DATA ERROR? 
1216 BNE :Y 
1217 SUB #128. ,R2 ‘NO, MORE DATA TO SEND? 
1218 BHI A YES 
1219 BR H NO 
1220 G TURTRY REC,BCNT,DR SRETRY HERE 
1221 BIT #BIT10'BIT3,@R5 :RETRY AGAIN? 
1222 BNE G YES 
1223 H: NOP DONE 
1224 
1225 .NLIST 
1226 “NLIST ME 
1227 “LIST 
1228 “ ENDM 
1229 
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SYSTEM MACRO DEFINITIONS 


s++ ; 

;THE SEEK MACRO IMPLIMENTS THE COMPLETE PROTOCOL TO INITIATE A SEEK 
; SEQUENCE. 

3SETS UP THE EXPECTED PROTOCOL RESPONSES: 


3 (XSPKNM) AND THEIR FLAG BYTES 
PS eM SEND EACH PACKET, AND ‘CHKSUM' TO CALC. THE PACKET 


INPUTS = DEVICE BLOCK @R5 
UNITS 


R 
TEST REGISTERS FROM SWAPIN 
TRBUF - BUFFER ADDRESS 


OUTPUTS =- 


XSPKNM = # OF PACKETS EXPECTED 
XSFLG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 


" SUBSEQUENT XSFLGS 
* AND XSCNTS 


* eee 
MACRO TUSEEK REC,DR,?A 


-NLIST 
«LIST ME 
«LIST 


THE NUMBER OF PACKETS 
AND COUNTS (XSFLG, XSCNT). 








SEQ 0030 





CALLS 





A MOV #TRBUF ,RO :-->(POINT TO) XMIT BUFFER 
MOVB  #RSCMND,a@RO [FORM COMMAND MESSAGE PACK 
MOVB  &#RSMSIZ.1(RO)  :THIS BIG 
MOVB  #RSSSEK.2(RO) :OP CODE IS SEEK 
MOV REC, 10. ( [TO THIS RECORD 
MOVB DR, 4. (RO ; ICH DRIVE 
CLRB =s-_- 3. (R9) ; IFIER 
CLRB =: 5. (RO) ‘NO SWITCHES 
CLR 6. (RO) ‘NO SEQUENCE # 

CLR 8. (RO) ‘NO BYTE COUNT 
MOV #RSMSIZ,R1 ‘GET COUNT 
TST (R1)+ [PLUS FLAG + BCNT 

[FOR CHECKSUM CALC 
CALL CHKSUM ‘RO-->TOP  R1=# OF BYTES 
MOV R1, (RO) SINSERT INTO PACKET 

“SET UP EXPECTATIONS: 
MOV #RSSNSZ,SNDCNT(R5) ;HOW MANY TO SEND 
MOVB  #RSCMND.XSFLG(R5) ;EXPECT END PACK 
MOV #RSNDSZ.XSCNT(R5) :COUNT WITH THIS 
MOV #1.,XSPKNM(R5) ;EXPECT ONLY 1 PACKET 
CALL RSVP SEND 

SAND RETURN TO SCHEDULER 
BIT #B1T3,aR5 TRETRY (FLAG BYTE ERROR)? 
BNE A YES 


5S RRONE st ee 


Qa 
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SYSTEM MACRO DEFINITION SEQ 0031 
1289 eNLIST 
290 eNLIST ME 
1291 LIST 


=o 


MACRO M1113 25-SEP-81 10:06 PAGE 29 


GLOBAL AREAS 
SYSTEM MACRO DEFINITIONS 


1295 
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SEQ 0032 
p++ 
‘THE RETRY MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
tA RETRY (READ OPERATION) SEQUENCE. 
[SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
: (XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
:"RSVP" TO SEND EACH PACKET, AND ‘CHKSUM’ TO CALC. THE PACKET 
: CHECKSUM. 
t INPUTS = DEVICE BLOCK ar5 
; TRBUF - BUFFER ADDRESS 
: UNITS TEST REGISTERS FROM SWAPIN 
: OUTPUTS = SNDCNT(R5S) = # OF BYTES TO SEND 
: XSPKNM = # OF PACKETS EXPECTED 
: XSFLG = FLAG BYTE OF 1ST PACKET 
: XSCNT = BYTE COUNT OF 1ST PACKET 
Py . * 
: > ~=SUBSEQUENT XSFLGS 
: > ® ~=AND XSCNTS 
2 - xKxek 
.MACRO TURTRY REC,BCNT.DR, 2A, 2B, ?C, 2D, 2E 
.NLIST 
“LIST ME 
“LIST 
D MOV #TRBUF ,RO :FORM CMND PACK: 
MOVB = #RSCMND,,aRO [MESSAGE PACK TYPE 
MOVB #RSMSIZ.1(RO)  :THIS BIG 
MOVB  &#RSSRD,2(RO)  :0P CODE-READ 
MOV C,10. [THIS RECORD 
MOVB DR, 4. (RO) :THIS DRIVE 
CLRB  3(A0} [PRESET NORM THRESHOLD 
TsT ars SREDUCED? 
INCB RO) TYES=CHANGE THRESHOLD 
E: MOV BCNT,8. (RO) [# BYTES DESIRED 
MOVB 4020.5. (RO) [MAINTENANCE MODE 
CLR 6. (RO) [NO SEQUENCE # 
MOV #RSMSIZ,R1 [SIZE OF PACKET 
TST (R1)+ “PLUS FLAG+COUNT INTO R1 
MOV #RSSNSZ,SNDCNT(R5) :SET UP SIZE TO SEND 
CALL  CHKSUM :FORM CHECKSUM R1=COUNT 
MOV R1, (RO) SINSERT IN PACKET 
MOV BCNT,R1 :SET EXPECTATIONS: 
[CALC # OF DATA PACKETS TO EXPECT 
MOV #XSFLG.R3 SOFFSET OF FLAG 
ADD R5,R3 TABS. ADDR. OF XSFLG 
CLR SPRESET 
A INC R :# PACKETS EXPECTED 
MOV WRSDATA,(R3)+ LOAD XSFLG 


= 
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SYSTEM MACRO DEFINITIONS SEQ 0033 
135 MOV #132.,(R3)+ ZAND EXPECT COUNT 
135 SUB #128. .R1 NEG RESULT LAST TIME 
1354 BLOS ¢ ‘LAST TIME! 
1355 BR A :MORE T 
1356 C INC R2 ‘ADD ONE FOR END PACK 
1357 MOV Re XSPKNM(RS) SAVE # PACKETS TO EXPECT 
1358 MOV SEND, (R3)+ § : EXPECT AN END 
1359 MOV arene? (R3) :THIS BIG-14. BYTES 
1361 CALL RSVP SEND 
1362 ‘AND RETURN TO SCHEDULER 
1364 .NLIST 
1365 "NLIST ME 
1366 “LIST 
1367 *ENDM 
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SYSTEM MACRO DEFINITIONS 


‘THE READ MACRO _IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
ZA READ SEQUENCE. 


1374 SETS UP THE gti: PROTOCOL RESPONSES: THE NUMBER OF PACKETS 





1375 :(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
1376 :"RSVP' TO SEND EACH PACKET. AND '"CHKSUM' TO CALC. THE PACKET 
ie * CHECKSUM. 
1379 : INPUTS = DEVICE BLOCK ars 
1380 : TRBUF = BUFFER ADDRESS 
1381 : UNITS TEST REGISTERS FROM SWAPIN 
1383 : OUTPUTS = SNDCNT(R5) = # OF BYTES TO SEND 
1384 : XSPKNM = # OF PACKETS EXPECTED 
1385 : XSFLG = FLAG BYTE OF 1ST PACKET 
1386 : XSCNT = BYTE COUNT OF 1ST PACKET 
1387 ; hie 
1388 : ; ® SUBSEQUENT XSFLGS 
1389 : ae 
1390 : : = ® ~=AND XSCNTS 
1391 3 . whe 
1392 3== 
1393 
1394 .MACRO TUREAD REC,BCNT,DR.VER, 2A, 28, 2C, 2D, 2E 
1396 .NLIST 
1397 “LIST ME 
1398 “LIST 
1399 
1400 
1401 E: MOV #TRBUF ,RO zFORM CMND PACK: 
1402 MOVB = #RSCMND,@RO SMESSAGE PACK TYPE 
1403 MOVB  #RSMSIZ.1(RO)  :THIS BIG 

MOVB  #RSSRD,2(RO)  :0P CODE IS READ 
1405 MOV REC, 10. (RO) :THIS RECORD 

MOVB DR, 4. (RO) THIS DRIVE 
1407 MOVB _—-VER,, 3. (RO) 
1408 MOV BCNT,8. (RO) TOTAL eyTes TO READ 
1409 MOVB #020.5. (RO) ;MAIN NTENANCE MODE 
1410 CLR 6. (RO) SEQUENCE # 
1411 MOV #RSMS1Z,R1 [GET SIZE OF PACKET 
1412 TST (R1)+ “+2 FOR CHE 
1413 MOV #RSSNSZ,SNDCNT(R5) ;:SIZE TO SEND 
1414 CALL § CHKSUM [FORM CHECKSUM R1=COUNT 
1615 MOV R1, (RO) SINSERT CHECKSUM 
1417 MOV BCNT,R1 ZSET CXPECTATIONS: 
1418 [CALC # OF DATA PACKETS TO EXPECT: 
1419 MOV #XSFLGR3 7GET O 
1420 ADD R5,R TABS. ADDR. OF XSFLG 
1421 CLR Re [PRESET AS NONE 
1422 A: INC R :# PACKETS EXPECTED 
1423 MOV #RSDATA (R3)+  SLOAD XSFLG 
1424 MOV #132.,(R3)+ sAND EXPECTED COUNT 
1425 SUB #128. .R1 [NEG RESULT LAST TIME 
1426 BLOS  ¢ SLAST TIME 
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GLOBAL ARE 
SYSTEM MACRO DEFINITIONS 
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zMORE TO DO 
R2 TADD ONE FOR END PACK 
R2,XSPKNM(R5)  :SAVE # PACKETS TO EXPECT 
#RSEND,(R3)+ | EXPECT AN END ALSO 
#RSNDSZ, (R3) ‘THIS BIG-14. BYTES 

SAND RETURN TO SCHEDULER 
TRETRY? 


#81T10!B1T3,aR5 


8 2NO. 
REC,BCNT DR sYES 
D — RETRY? 


SEQ 0035 
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GL 
SYSTEM MACRO DEFINITIONS 


THE SELF TEST MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO 
; INITIATE A "DIAGNOSE’ SEQUENCE. 


SETS UP THE eit ite! fogs! RESPONSES: THE NUMBER OF PACKETS 
3 (XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
"RSVP" TO SEND EACH PACKET, AND 'CHKSUM’ TO CALC. THE PACKET 
; CHECKSUM. 
INPUTS = pevite BLOCK ars 

TRBUF = BUFFER ADDRESS 

UNITS REGISTERS TEST FROM SWAPIN 
OUTPUTS = SNDCNT(RS) = # OF BYTES TO SEND 

XSPKNM = # OF PACKETS ST Bicee 

XSFLG = FLAC BYTE OF 1ST PACKET 

XSCNT = BYTE COUNT OF 1ST PACKET 
"t SUBSEQUENT XSFLGS 


> 
* AND XSCNTS 
hhh 


-MACRO TUSELF ?A 
«NLIST 


“LIST ME 
“LIST 
A MOV #TRBUF ,RO FORM COMMAND PACKET 
MOVB = #RSCMND, aRO > COMMAND FLAG 
MOVB &#RSMSIZ.1(RO) :SIZE OF MESSA GE 
MOVB  &#RSSSLF.2(RO) :SELF TEST OPERATION 
CLRB =. 3(RO) : IF 
CLR 4(RO) [NO DRIVE OR SWITCHES 
CLR 6(RO) :NO S 
CLR 8. (RO) [NO BYTES 
CLR 10. (RO) [NO RECORD # 
V #RSMSIZ,R1 GET. SIZE 
TST (R1)+ +2 FOR CHECKS 
MOV #RSSNSZ, snocnt (Rb) sSIZE TO SEND 
CALL CHKSUM HECK SUM 
MOV R1, (RO) SINSERT INTO PACKET 
MOV ARSEND,XSFLG(RS) ;EXPECT END, 
MOV #RSNDSZ,XSCNT(RS) ©: THIS BIG 
MOV #1,XSPKNM(RS) AND 1 PACKET 
CALL RSV. ‘RETURN TO SCHEDULER 
BIT WaIT3.aR5 SRETRY?(BAD FLAG) 
BNE A YES 
.NLIST 


»NLIST ME 
LIST 


- ENDM 


SEQ 0036 
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SYSTEM MACRO DEFINITIONS SEQ 0037 
1505 
1506 ‘THE TEST ID MACRO INTERFACES THE SUPERVISOR'S TEST DISPATCH TO THE 
1507 SDIAGNOSTIC'S FORMAT BY IMPLEMENTING wr ote 1) INITIALIZE 2 
1508 3PC_OF THE TEST CODE (TSTPC(R5)), 2) ASSI mee 1ST DRIVES, 3) R 
1292 3TH HE TEST, 4) SWITCH DRIVES AND REINITIALIZE, 5) RUN THE TEST AGAIN. 
1511 
I3I¢ «MACRO TSTID ADDRES,?A 
1514 eNLIST 
1515 «LIST ME 
1516 LIST 
1517 MOV ADDRES, TSTTOP ;SAVE ADDR OF TEST 
1518 CALL SETUP ZINIT UNITS TSTPC 
1519 CALL SETDR 7GET 1ST DRVS. 
1520 CALL RUN 700 TEST 
1521 CALL SWAPDR :GET NEXT DRVS. 
1522 BCC A 2ND DRVS 
1523 CALL SETUP :REINIT UNITS TSTPC 
1524 CALL RUN ;REPEAT TEST 
1525 A: ; DONE 
1526 -NLIST 
1527 »NLIST ME 
1528 IST 
1529 -ENDM 
1 530 Fy Sere wm em Seen ee en wwe suerte Te oS ews Seer eS ewe ee ene renner ae neon eo meee come 


LQ 


—----— -—--—-}4 
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GLOBAL SUBROUTINES SECTION SEQ 0038 


! 
| 

1533 .SBTTL GLOBAL SUBROUTINES SECTION | 
| 

1535 hod 

1536 : THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES THAT ARE USED | 

1337 : TO LINK THE DIAGNOSTIC TO THE SUPERVISOR (THROUGH THE TSTID MACRO). | 

1539 

1540 s++ 

1541 : SWAPDR 

1542 : ~ SUBROUTINE TO DETERMINE IF TO TEST OTHER DRIVE (FOR ALL UNITS) 

1549 : INPUTS: DR(R5) = DRIVE CONFIGURATION 

1550 : BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 

195) : LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 

1338 > OUTPUTS: DR(RS) UPDATED TO TEST SAME OR OTHER DRIVE 

1354 : CARRY SET IF SECOND PASS NECESSARY | 

1609 

1610 005526 005002 SWAPDR:: CLR  —-R2 :FOR # OF DRIVE 1°S. 

1611 005530 012737 003346 005626 MOV WBLKTBL,SWPTR TABLE ADDR. OF 1ST UNIT 

161¢ 005536 017705 000064 1$: MOV aSWPTR,RS [GET DATA BLOCK ADDR. 

1613 005542 032715 100000 BIT #B1T15.aR5 ABORTED? 

1614 005546 001013 BNE YES 

1615 005550 032765 000061 000060 BIT WBITO,DR(RS)  =:DID OR. 0? 

1616 005556 001007 BNE 3$ *NO, DID DR.1 1ST PASS 

1617 005560 632765 001000 000060 BIT WBIT9,DR(RS)  :YES: 1 SELECTED? 

1618 005566 001403 BEQ 3$ ‘NO, ALL DONE 

1619 005570 105265 000060 INCB —DR(RS) 7YES, SWAP 

1620 005574 005202 INC R [ONE MORE TO TEST 

1621 005576 023727 005626 003364 3$: CMP SWPTR,#LSTDEV LAST DEVICE? 

1622 005604 103004 BHIS :YES 

1623 005606 062737 000002 005626 ADD #2,SWPTR [NO=POINT NEXT 

162% 005614 000750 BR 1$ :DO | 

1626 005616 005702 4$: TST R2 S (CLEAR CARRY) ,MORE TO 00? 

1627 005620 001491 BEQ 5$ NO 

1628 005622 000261 SEC YES 

1629 005624 000207 S$: RETURN RETURN 


16 
1631 005626 000000 SWPTR: WORD 


— 
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000 3$: 
1656 005704 000000 SETPTR: .WORD 


GLOBAL SUBROUTINES SECTION SEQ 0039 | 
1634 3 ++ | 
1635 : SETDR = SUBROUTINE TO GET DRIVE FOR 1ST PASS FOR EACH TEST | 
1637 : INPUTS: DR(RS5) = DRIVE CONFIGURATION 
16 : BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
+344 ; LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
1641 : OUTPUTS: DR(RS) IS SET TO TEST DRIVE 0 OR DRIVE 1 | 
teh : 

1645 005630 012737 003346 005704 SETDR:: MOV WBLKTBL,SETPTR ;TABLE OF ADDR. 1ST UNIT 

1646 005636 017705 000042 1$: MOV @SETPTR.RS [GET DATA BLOCK ADDR. 

1647 005642 105065 000060 CLRB —sDR(RS) :PRESET AS DRO 

1648 005646 032765 000400 000060 BIT #BITB,DR(RS) § :DO DRO? : 

1649 005654 001002 BNE 2$ YES | 
1650 005656 105265 000060 INCB  —DR(RS) [NO-USE DRIVE 1 

1651 005662 023727 704 003364 2$: CMP SETPTR,#LSTDEV :MORE UNITS 

1652 005670 103004 BHIS SNO-EXIT 

1653 005672 062737 000002 005704 ADD #2,SETPTR [YES-GET TABLE ENTRY 

1654 005700 000756 BR 1$ [CONFIGURE THAT UNIT 
1655 005702 207 RETURN 


' 
| 
! 


—_— 


£2 


ea — SS 


B 4 
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GLOBAL SUBROUTINES SECTION SEQ 0040 
1659 p++ 
1660 : CLRALL = CLEARS INPUT BUFFER FOR RESPONSE FROM UNIT. 
1668 + INPUTS: BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
1663 : LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
1665 : OUTPUTS: ALL UNITS BUFFERS CLEARED. 
1667 : CALLS: CLRBUF 
1869 ee 
1670 005706 012737 003346 006000 CLRALL:: MOV &#BLKTBL,CLRPTR ;TOP OF TABLE OF ADDRESSES 
1671 005714 017705 000060 i$: MOV @CLAPTR.RS :GET DATA BLOCK 
1672 005720 004737 005746 CALL  CLRBUF [CLEAR IT'S RECEIVE BUFFER 
1673 005724 023727 006000 003364 CMP CLRPTR,MLSTDEV :LAST DEV? 
1674 005732 103004 BHIS :YES 
1675 005734 062737 000002 006000 ADD #2. CLRPTR + ==>NEXT 
1676 005742 000764 BR 1 = CONT INUE 
1677 005744 000207 2$: RETURN 
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GLOBAL SUBROUTINES SECTION 





1680 i” 
1681 : peed . a UNIT 
1682 ; INPUTS: BUF (RS) IS 
1683 ; SIZE 
1684 ; RCBFS2_IS SIZE 
1685 ; OUTPUTS: CLEARED AREA. 
1686 mes 
1687 
1688 005745 CLRBUF:: PUSH RO ;SAVE RO 

005746 010046 MOV RO,~(SP) 
1689 005750 PUSH = R4 ;SAVE R4 

005750 010446 MOV R4,~(SP) 
1690 005752 016500 000102 MOV RCVBUF(R5),RO GET — OF BUFFER 
1691 005756 012704 001036 MOV ARCBF SZ ,R4 :SIZE_IN BYTES 
1692 005762 005020 1$: Ci.R (RO) + > CLEAR iT 
1693 005764 162704 000002 SUB #2,R4 :2 BYTES LESS 
1694 005770 001374 BNE 1$ ; 
1695 005772 POP R4 ;RESTORE 

005772 012604 MOV (SP)+,R4 
1696 005774 POP RO ; 

005774 012600 MOV (SP)+,RO 
1697 005776 000207 RETURN sEXIT 


1698 006000 000000 CLRPTR: .WORD 


AD 


AREAS 
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GLOBAL 
GLOBAL SUBROUTINES SECTION 


1701 
1702 
1703 


— oo os a St So ss I St 
SSNS NGS SS 
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Wa a os 


; INPUTS 

; OUTPUTS: 
005037 003320 SETUP:: CLR 
012737 003346 003322 MOV 
017705 175302 1$: MOV 
013765 003324 000020 MCV 
023727 003322 093364 CMP 
103004 BHIS 
062737 000002 003322 ADD 
000763 R 


B 
000207 2s: RETURN 


: SETUP ~ CALLED WITHIN EACH TEST TO INSERT BEGINNING ADDRESS OF THE 
TEST INTO ALL UNITS TEST PC'S. 


TSTTOP LOADED ne aw ALGORITHMS STARTING ADDR. 
BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 


Hb af EAne ALL UNITS 
EARED 


DONE - 

DONE sNOT DONE YET 

#BLKTEL, IDPTR + TABL E I? are 
aIDP ;DEVICE’S 


A BLOCK 
TSTTOP, TSTPC(RS) ; INSERT Bc FOR TOP OF TEST 
IDPTR,#LSTDEV YES UNITS SET? 


2 
#2,1DPTR GET NEXT POINTER 
1 iNOs HIM UP 


SEQ 0042 


aD 
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GLOBAL SUBROUTINES SECTION SEQ 0043 
1723 3++ 
1724 ; RUN - IMPLEMENTS THE CALLS TO SEND PACKETS, RECEIVE PACKETS, THEN 
1725 ; CHECK ANSWERS DURING TEST RUN TIME. 
1726 : INPUTS: DONE 
1727 ; OUTPUTS: NONE 
1739 oak 
1730 006050 004737 006100 RUN:: CALL NXTST sMAKE AND SEND NEXT PACK TO ALL 
1731 sUNABORTED UNITS 
1732 006054 005737 003320 TST DONE : COMPLETE? 
1733 006060 001006 BNE sYES 
te 006062 004737 007150 CALL GETANS 3NO,GET ALL RESPONSES 
1736 006066 BREAK sSUPERVISOR CHECK 
1737 006066 104422 TRAP = C$BRK 
1738 006070 004737 010442 CALL CHKANS 3 CHECK ALL _ RESPONSES 
1739 006074 000765 BR RUN :CONTINUE TILL DONE 
1740 006076 000207 2$: RETURN 


AN 
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GLOBAL AR 
NXTST / THE SCHEDULER SEQ 0044 


aa 


1743 .SBTTL WNXTST / THE SCHEDULER 
He ‘ 
1746 : NXTST = DISPATCH EXECUTION USING EACH UN-ABORTED UNIT'S TEST PROGRAM 
1747 : COUNTER, (TSTPC(R5)). (THE POINTER TO THE TEST CODE THAT COMPRISES 
1748 ; MAKING A PARKES AND SENDING IT. CHECKS FIRST F FOR ANY UN-ABORTED UNIT 
1749 : THAT IS RETRYING EITHER A DATA ERROR OR A ‘INDECIPHERABLE FLAG BYTE’ 
1750 : ERROR, IN ORDER TO SERVICE ONLY THAT UNIT THIS PASS. INITS 
1751 : NON“RETRYING UNITS IF NECESSARY. IF NO RETRIES,DISPATCH ALL 
1732 ; UNITS IN ROUND ROBIN FASHION. 
1754 : INPUTS: (IMPLIED) DATA BLOCKS. 
1755 : BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
1736 : LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
1758 : OUTPUTS: ERRSF IF ALL UNITS ARE ABORTED.(TC NOTIFY APT) 
1759 3 SYSTAT IS UPDATED 
1760 :-- 
1761 
1762 006100 000240 NXTST:: NOP 
1763 006102 012737 003346 003310 MOV WBLKTBL,DEVPTR UNIT 0 TO START 
1764 006110 017705 175174 1$: MOV @DEVPTR.RS 3GET DATA BLOCK 
1765 006114 005715 TST S ABORTED? 
1766 006116 100504 BMI 2$ : VES. « Heck NEXT UNIT 
1767 006120 032715 000010 3$: BIT #B1T3,aR5 ZNO-RETRY "BAD FLAG*? 
1768 006124 001040 BNE SYES...(S SEND BREAK; THEN CMD PACK) 
1769 006126 032715 020000 BIT #B1T13,aR5 SNO-RETRYING STILL (NO END PACK YET)? 
1770 006132 001426 BEQ ‘NO... 
1771 006134 032715 000400 BIT #BIT8,aR5 SRETRYING A WRITE? 
1772 006140 001453 BEQ 4$ :NO.. 
1773 006142 SWAPIN SYES-GET DEVICE REGESTERS 
006142 016500 000006 MOV 6. (R5) ,RO 
006146 016501 000010 MOV 8.(R5).R1 
006152 016502 000012 MOV 10. (R55 ,R2 
006156 016503 000014 MOV 12. (R5).R3 
006162 016504 000016 MOV 14. (R5) -R4 
1774 006166 020265 000206 CMP R2,SAVCNT(R5) ; CURRENT oGuNT = SAVED COUNT? (WHERE WE STARTED) 
1775 006172 001036 BNE 4$ ‘NO... (CONTINUE SENDING DATA PACKS) 
1776 006174 042737 000004 003304 BIC WBIT2,SYSTAT —  YES=CLEAR RETRY FLAGS 
1777 006202 042715 020000 BIC #B1T13,aR5 
1778 006 000450 BR 2 2 CHECK NEXT UNIT. 
1779 006210 032715 002000 7$: BIT #B1T10,aR5 SNO=RETRY DATA ERROR? 
1780 006214 001445 BEQ 'NO...ON TO NEXT UNIT 
1781 006216 052737 000002 003304 BIS WBIT1,SYSTAT | :SET RETRY STATUS TO ‘DATA ERROR" TYPE 
1782 006224 000424 BR 6$ :YES... 
1784 006226 5$: SWAPIN :GET DEVICE REGISTERS 
006226 016500 MOV 6. (R5) .RO 
006232 016501 000010 MOV *(R5) -R1 
006236 016502 000072 MOV 10. (R55 Re 
006242 016503 000014 MOV 12. (R5)-R 
006246 016504 000016 MOV 14. (R5) -R4 
1785 006252 010265 000206 MOV R2,SAVCNT(RS) ;SAVE THE BYTE COUNT (FOR WRITE OPERATION) 
1786 *TO MARK HOW MANY DATA PACKS TO SEND 
1787 006256 004737 013654 CALL  DOBRK ‘SEND INIT 
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NXTST / THE SCHEDULER 





SEQ 0045 
1788 006262 032715 100000 BIT #B1T15,aR5 sABORTED? 
1789 006266 001020 BNE $ YES. 
1790 006270 052737 000004 003304 4$: BIS WBIT2,SYSTAT | NOT ABORTED-SET RETRY STATUS 
1791 006276 6$: SWAPIN “GET DEVICE REGISTERS 
006276 016500 000006 MOV . (R5) ,RO 
006302 016501 000010 MOV *(R5) RI 
006306 016502 000012 MOV 10. (R55 ,R2 
006312 016503 000014 MOV 12. (R5).R3 
006316 016504 000016 MOV 14. (R5) .R4 
1792 006322 004775 000020 JSR PC,aTSTPC(RS) ;DO TEST FOR 
1793 006326 000477 BR NXTRET STHIS UNIT ONLY~EXIT 
1794 006330 023727 003310 003364 2$: CMP DEVPTR,#LSTDEV :TRY NEXT UNIT? 
1795 006336 103004 BHIS NXTST 
1796 006340 062737 000002 003310 ADD #2. ,DEVPTR YES, <>NEXT 
1797 006346 000660 BR 1$ :GET BLOCK 
1799 006350 005037 006530 NXTST2: CLR ABONM sHERE=NO RETRIES TO DO, NO UNIT ABORTED YET 
1800 006354 012737 003346 003310 MOV #BLKTBL,DEVPTR 3==>UNIT 0 STORA x 
1801 006362 017705 174722 PERDEV: MOV @DEVPTR.RS [R5=->NEXT DEVICE STORAGE BLOCK 
1803 006366 005715 3$: TST ar5 : ABORTED? 
1804 006370 100426 BMI 4$ : 
1805 006372 032715 040000 BIT #B1T14,aR5 :SEND BREAK? 
1806 006376 001407 BEQ 6$ 3NO 
1807 006400 004737 013654 CALL § DOBRK = YES 
1808 006404 032715 9040000 BIT #B1T14,aR5 i SUCCESSFUL INIT? 
1809 006410 001016 BNE 4$ [NO ON TO NEXT UNIT 
1810 006412 005715 TST ars ABORTED? 
1811 006414 100414 BMI 4$ “YES-ON TO NEXT UNIT 
1812 006416 6$: SWAPIN [NO,GET DEVICE REGISTERS RO-R4 CONTAINING TEST PARAMETERS 
006416 016500 000006 MOV 6.(R5), 
006422 016501 000010 MOV 8. (R5).R1 
006426 016502 000012 MOV 10. (R55 ,R2 
006432 016503 000014 MOV 12. (R5).R3 
006436 016504 000016 MOV 14. (R5) .R4 
1813 006442 004775 000020 JSR PC,aTSTPC(RS) ;INITIATE 1 PACKET TRANSMISSION AND RETURN 
1814 006446 905715 4$: TST ars * ABORTED? 
1815 006450 10092 BPL 8$ ;NO-ON TO NEXT UNIT 
1816 006452 005 006530 INC ABONM ;YES...ONE MORE TALLIED 
1817 006456 023727 003310 003364 8$: CMP DEVPTR,#LSTDEV ZALL TU'S TRIED? 
1818 006464 103004 BHIS 5$ “YE 
1819 006466 062737 000002 003310 ADD #2. ,DEVPTR ‘NO THE ADDRESS#2= =NEXT ADDRESS 
1820 006474 00073 BR PERDEV [DO NEXT UNIT 
1821 006476 022737 000010 006530 5$: CMP #8. , ABONM TALL ABORTED? 
182 006504 001010 BNE NXTRET ‘NO 
1823 006506 ERRSF  100.,NOMOR YES! 
006506 104454 TRAP  CSERSF 
006510 000144 .WORD 100 
006512 006532 “WORD NOMOR 
006514 “WORD 0 
006516 11$: BREAK : SUPERVISOR BREAK 
006516 104422 TRAP  CSBRK 
005520 005237 003336 INC ALLGON :SET DON'T=PRINT STATISTICS FLAG 
006524 DOCLN EXIT 
006524 104444 | CSDCLN 


an 
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NXTST / THE SCHEDULER 


1827 006526 000207 NXTRET: RETURN 


182 
1829 006530 000000 ABONM: .WORD 
ise 006532 101 114 114 NOMOR: moly /ALL UNITS ABORT 


is NUMBER OF ABORTED UNITS 


SEQ 0046 


1 


oa 
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RSVP / XOFF AND SEND A PACKET TO ALL DEVICES SEQ 0047 


1833 .SBTTL RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 
1835 3 ++ 
1836 : RSVP = SAVES TEST CODE PROGRAM COUNTER IN TSTPC(RS) AND UNIT'S REGIS= 
1837 : S. NOT IN TEST 8, POINTS ‘“MOFF’’ THAT PRECEEDS PACKET IN 
1838 : xMIT BUFFER AND SENDS PACKET WITH” MOFF. RETURNS TO SCHEDULER (NXTST) 
1839 : SO THAT OTHER UNITS PACKETS MAY BE FORMED, TO GET ALL UNITS WORKING 
1840 ; AT ONCE. IF IN TEST 8 AND THE UNIT IS NOT MODIFIED, SKIP REST OF 
1841 : ROUTINE. IF IN TEST 8 AND THE UNIT IS MODIFIED DO NOT SEND XOFF AND 
1842 : PROCEED NORMALLY. 
1843 : INPUTS: (SP) CONTAINS UNITS PC TO SAVE SINCE RSVP WAS CALLED. THE 
1844 : NUMBER PACKETS EXPECTED (XSPKNM), AND THE EXPECTED FLAGS AND 
1845 ; BYTE COUNTS OF EACH (XSFLG, XSCNT...) ARE LOADED BY TEST CODE 
1846 ; (MACROS) . 
1847 g DCNT - # BYTES My SEND 
1848 : REC(RS) = RECORD # 
1849 : TRBUF = BUFFER ADDR. 
1850 ; XSPKNM(RS) = # EXPECTED 
1851 : RCVBUF (R5) 
1853 t OUTPUTS: CMDSNT = UPDATED WITH PACKET OP CODE 
1854 : BLKER = RECORD NUMBER STATISTICS UPDATED IF NOT RETRYING 
1855 : AND C PACKET SENT 
1856 : SUCCS(RS) = PRESET CLEAR 
1857 : STATUS WORD @R5 - BITS = DATA CHECK | ERROR = CLEARED 
1858 : BITS = ‘VERIFY’ TION 
1859 ; BIT4 = 0 = DATA PAC 1 = CMND 
1860 : BIT8 = RD/WR OPERATION 
1861 : XSPTR = POINTS TO EXPECTED FLAG 
1862 : UPPER BYTE OF XSPKNM IS REPLICATED. 
1863 : PACKET POINTER (PKPTR(RS)) POINTS TO TOP OF UNITS RECEIVE BUFFER 
1864 : AREA (RCVBUF(RS)) FOR CURRENT UNIT. 
1866 2 
1867 006556 000240 RSVP:: NOP :FINISH TEST 
1868 006560 012665 000020 MOV (SP) +, TSTPC(RS) i SAVE WHERE YOU WERE IN TEST BODY AND 
1869 006564 SWAPOW AVE TEST REGISTERS 
006564 010065 000006 hav RO,6. (R5) 
006570 010165 000010 MOV R1.8.(R5) 
006574 010265 000012 MOV R2.10. (R5) 
006600 010365 000014 MOV R3.12.(R5) 
006604 010465 000016 MOV R4.14.(R5) 
1870 
1871 :CORRECT FOR RETURN TO SCHEDULER 
1872 006610 022737 000002 003340 CMP #2, TESTS teeeee IS THIS TEST 8 
1873 006616 001007 BNE XFNSND ieeeee NO 
1874 006620 022765 000000 000210 CMP #0,MRSP(RS) teeeee IF SO, IS THIS UNIT MODIFIED 
1875 006626 001523 BEQ ENDRSP teeeee YES 
1876 006630 012700 026174 NOXOFF: MOV #TRBUF ,RO ;FOR NORMAL PACKET SEND 
1877 006634 000404 BR SND SEND OFF *PACKET 
1878 006636 912700 026173 XFNSND: MOV #TRBUF-1,R ‘POINT TO XOFF 
1879 006642 00526 000070 INC dir eit Ti ‘ONE MORE TO SEND, TOO. 
1880 006646 004 7? 007100 SND: CALL = SNDBYT [SEND BY 
1881 00665 5715 TST ars *R5-=> TO STATUS BLK 
1882 006654 100510 BMI 6$ SABORTED? YES...QUIT 
1883 006656 005365 000070 DEC SNDCNT(RS) [NO, SEND MORE 


GLOBAL AREAS 
RSVP / XOFF AND 


MISS 
S858 


SESESEEESS3 
ses 


006754 


geseess Seeeeeee 
So N“N 
3 o 


ooo 
Vw 
ANS 


064 
007070 


s 


NOME WN 


9. 
9. 
9. 
9 
9. 
9. 
9 
9 


Mr 


007076 
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SEND A PACKET TO ALL DEVICES 


SLSRSass 
SNAVATR 


= 
& 


103403 
6 


026174 
000064 


000020 
000002 


000002 
000020 


002000 
000002 


000400 
013504 


000114 
000116 
000002 
sei 
000040 


000040 
013504 


000110 


000112 


003330 
000033 


000104 


000100 


000002 


000003 


8$: 
4$: 


21$: 
228: 


5$: 
6$: 
ENDRSP: 
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INC 
RETURN 





SND 
#TRBUF ,RO 

REC (RSS ,BLKER 
XSPKNM ( 
SUCCS(R5) 

WRITS, aR5 
RCVBUF (R5) ,PKPTR 
#XSFLG,RG 

R5,R 
R4.XSPTR(RS) 


#B1T4,aRS 
@RO,#RSCMND 


2(RO),CMDSNT(RS) 
#B1T4;aR5 


#81T10,aR5 
2(RO) ,ARSSRD 
#81T8,aR5 
WHCHDR 

8$ 

RDNO(RS) 
RDN1(R5) 
2(RO) ,ARSSWR 


#81T8,aR5 
3(RO) 


21$ 
#B1TS,aR5 
#B1TS,aR5 
WHCHDR 


5$ 
WRTNO(RS) 
6$ 


WRTN1(R5) 


3IF MORE TO SEND 
37>>BUFFER 
sPREPARE FOR RECEIVE 


R5) ,.XSPKNM+1(R5) :REPLICATE LO. BYTE TO HI FOR GTPAKS, CHKANS 
i ;NO SUCCESS YET 


‘NO DATA CHK ERROR YET 


; T E 
(R5)_ ;TOP OF RCV BUFFER GOES THE 1ST PACKET 


sF 
ZADDRESS 
sOF 1ST XSFLG 


:PRESET AS DATA PAK 
[WAS IT COMMAND PAK? 
: YES=SAVE COMMAND 

s1TS CMND PAK 


sRETRYING? 
Be yy Fae ANY STATS OR CONDITION 


a e 


(FOR HARD/SOFT LOGGING) RD/WR FLAG=0 
:GET DRIVE 


DRIVE 0 
‘DRIVE 1 
:A WRITE? 


SYES, RD/WR FLAG=1 
:VERIFY TOO? 


NO 
sYES-SET VERIFY FLAG 


3 (NO)-RESET VERIFY FLAG 
GET DRIVE NO 


;CARRY=DR1 
34 BLKS WRITTEN DRO 
sEXIT 


3# BLKS WRITTEN DRV1 
:RETURN 






oa 
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SNDBYT / OUTPUT A BYTE TO UN SEQ 0049 


1930 -SBTTL SNDBYT / OUTPUT A BYTE TO UNIT 
Be ° 
1933 ; SNDBYT = TEST "READY’ ON INTERFACE. IF ‘READY’, SEND BYTE AND EXIT. 
1934 : IF TIMED OUT, ERR 
1935 ; INPUTS = RO = POINTER BUFFER 
1936 : - IMPLIED UNIT DATA BLOCK 
1937 : = CSNRDY = TIMEOUT CONSTANT 
1938 ; OUTPUTS = RO IS INCREMENTED. 
S14 ; ERROR ~ NOT-READY-TO-SEND TIME OUT 
1941 
1942 007100 SNDBYT:: PUSH R11. zENTER RO-->BYTE 

007100 010146 MOV R1,-(SP) 
1943 007102 013701 003342 4$: MOV CSNRDY ,R1 :GET TIMEOUT CONSTANT FOR NOT READY ERROR 
1944 007106 105775 000026 1$: TSTB @XMSR(RS) ;READY TO SEND? 
1945 007112 100412 BMI 2s sYE 
1946 007114 PUSH RO NO, SAVE RO 

007114 010046 Mov RO,=(SP) 
1947 007116 BREAK s:MONITOR BREAK 

007116 104422 TRAP C$BRK 
1948 007120 POP RO sRESTORE 

007120 012600 MOV (SP)+,RO 
1949 
1950 007122 005301 DEC R1 sABORTED? 
1951 007124 001370 BNE 1$ 2NO 
1952 oor tgs 012704 000056 MOV #TOSNDB ,R4 7YES,SET CODE FOR TIMEOUT ERROR 
1953 0071 004737 012500 CALL 0G :LOG_IT 
1954 007136 000402 BR $ 2Q 
1955 007140 112075 000030 2$: MOVB (RO)+,@XMDB(RS) ;SEND IT 
1956 007144 3$: POP R1 sRESTORE 

012601 MOV (SP)+,R1 


1957 007146 000207 RETURN : DONE 


8 007202 


San 


980 007206 
+4} 007212 
983 007214 
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000006 003304 
177777 010206 
005706 
007426 
005746 
007216 


S RESPONSES ROUND ROBIN USING *‘XON"’ 


-SBTTL 


+ OUTPUT 


GETANS:: 


1$: 


2s: 
GETPTR: 


; INPUTS: 


GETANS / GETS RESPONSES ROUND ROBIN USING ‘‘XON"’ 


: GETANS » it A_UNIT IS RETRYING CLEAR HIS RECEIVE BUFFER (CLRBUF) AND GET 


HIS RESPONSE (GTPKS1), ELSE, CLEAR ALL BUFFERS (CLRALL) AND 
GET ALL RESPONSES (GTPKS8). 
SYSTAT = SYSTEM STATUS WORD. 


S: SERVST = -1 IF NO RETRIES. 

NOP UNIT IF RETRY; ELSE ALL 
BT #81T1!B1T2, srstai . sRETR 
MOV #-1,SERVST ZPRESET NO UNITS SERVICED 
CALL CLRALL :CLEAR ALL INPUT BUFFERS 
CALL GTPKS :GET ALL REPLYS 
CALL CLRBUF ;RETRY-CLEAR 1 vel ONLY 

"R5=>UNIT BY NXTST 

LL GTPKS1 [GET 1 REP the 
RETURN :D 
. WORD 


SEQ 0050 


oa 
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GTPKS1 / GET RETRY RESPONSE-1 SEQ 0051 


-SBTTL GTPKS1 / GET RETRY RESPONSE-1 UNIT 


1986 
13 
1989 ; :* GTPKS1 - SENDS "xON' TO UNIT, GETS FLAG BYTE (IF ANY), CHECKS IF IT IS 
1990 ; WAS EXPECTED. IF IT IS, USE EXPECTED BYTE COUNT(XSCNT). IF 
1991 ; NOT, 1 CHECK IF PREMATURE =E ND PACK OR (SINCE MAINTENAN CE MODE) 
1992 : IF IT°S A PREMATURE DATA PACK. ADJUST COUNT REST OF 
1993 : PACKET, AND REPEAT ABOVE UNTIL NO MORE PACKETS” 
1994 : INPUTS: (IMPLIED) UNITS DATA BLOCK 
1995 ; RSNDSZ = END PACKET SIZE 
1997 > OUTPUTS: SYSTAT UPPER BYTE = FLAG BYTE RECEIVED 
1999 , 
2000 007216 000240 GTPKS1:: NOP :R5=->THE UNIT 
2001 007220 012703 000034 MOV AXSFLG,R3 ‘THE OFFSET VALUE OF FLAG 
2002 007224 060503 ADD R5,R3 [FORM THE ABSOLUTE ADDRESS 
2003 007226 010301 MOV R3,R1 [R3=-=->ADDR. OF EXPECTED FLAG 
2004 007230 062701 000002 ADD #2. ,R1 [R1-->ADDR. OF EXPECTED COUNT 
2005 007234 012700 007424 MOV #EXON RO SRO=ADDRESS 
2006 007240 004737 007100 CALL  SNDBYT *XON THE DEVICE 
2007 ieee TIME CRITICAL 
2008 007244 016500 900102 MOV RCVBUF(RS),RO  :e##--> TO THE BUFFER 
2009 007250 116502 00003 MOVB XSPKNM+1(R5),R2 ;8*GET THE # OF PACKETS TO RECEIVE 
2010 007254 032702 177400 BIT #177600,R2 s***SIGN UN-EXTEND 
2011 007260 011137 003314 1$: MOV aR1,RCBCNT :eeeHOW MANY BYTES IT SHOULD BE 
2012 007264 011337 003312 MOV @R3.RCFLG SeeeWHAT THE FIRST BYTE SHOULD BE 
2013 007270 004737 010212 CALL  GTBYTE t*eeGET THE ALL IMPORTANT FLAG 
2014 007274 032715 100000 BIT #B1T15,aR5 TIMEOUT? 
2015 007300 001050 BNE 4$ YES 
2016 007302 005300 DEC RO t=> BYTE RECIEVED 
2017 007 111037 003305 MOVB aRO,SYSTAT+1 : SAVE IT AS FLAG BYTE 
2018 007310 121037 003312 CMPB =. @RO RCFLG :18T BYTE WHAT WAS EXPECTED? 
2019 007314 001420 BEQ 
2020 007316 121027 000002 CMPB = @RO., ARSEND {NOS WAS IT END PAK? 
2021 007322 001 BNE NO 
2022 007324 012737 000016 003314 MOV #RSNDSZ.RCBCNT YES, USE END SIZE FOR COUNT 
2023 007332 012702 000001 MOV #1,R2 [AND ASSUME IT’S LAST PACKET! 
2024 007336 000407 BR 2$ 3 CONT INUE REC cel VE 
2025 007340 121027 000001 14$:  CMPB = @RO,ARSDATA ZWAS | IT DAT 
2026 007344 001026 BNE HKANS PA FIND INIT. 
2027 007346 012737 000204 003314 MOV #RSDASZ ,RCBCNT ese SET FOR "DATA P AK SIZE 
2028 007354 005202 INC R2 TONE MORE PACK THAN EXPECTED (END PACK) 
2030 007356 005200 2s: INC RO :RESTORE TO => NEXT BYTE 
2031 007360 005337 003314 5$: DEC RCBCNT ;THAT'S ONE LESS BYTE TO GO 
32 007364 001411 BEQ 3$ 
2033 007366 004737 010212 CALL  GTBYTE :GET REST OF PACKET 
2034 007372 005765 000074 TST DLV(RS) ERROR 
2035 007376 001011 BNE 4$ :YES-ALL OVER 
2036 007400 032715 100000 BIT #B1T15,aR5 [OR IF ABORT ED 
2037 007404 001006 BNE 4$ S THEN QUIT 
2038 007406 000764 5$ [CONTINUE RECEIVE 
$020 007410 005302 3$: DEC R2 sONE LESS PACKET TO GO 
3041 007412 001403 BEQ 4$ :MORE PACKETS IN TRANSACTION? 
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GTPKS1 / GET RETRY RESPONSE-1 


2043 007414 
2044 007416 
2045 007420 
2046 007422 
2047 

2048 007424 
2049 007425 
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095395 
000717 
000207 


020 
023 


4$: 
EXON 


EXOFF : 


(R1)+, (R1)+ :POINT TO NEW EXPECTED COUNT 
(R3)+, (R3)+ SAND F 
1$ SAND RECEIVE, 
‘RETURN 
RSXON 
RSXOF F 


_ EE 


CN eel 


B 5 | 
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GL AREA 
GTPKS8 / GET RESPONSES (NO RETRIES SEQ 0053 
2052 .SBTTL GTPKS8 / GET RESPONSES (NO RETRIES) 
sper ++ 
2055 : GTPKS8 - IF IN TEST 8 AND THE UNIT IS NOT MODIFIED, SKIP THE REST 
56 : THE ROUTINE. OTHER 

2057 : ae ALL ABORTED UNITS SERVICED (SERVST: BIT POSITION). UNTIL 
2058 : L UNITS SERVICED (SERVST=0), IF NO MORE PACKETS, SET UNIT 
2059 : SERVICED, ELSE “BYTE FROM DECREMENTING TH 
2060 : ER OF PACKETS LEFT. CHECK TO SEE IF EXPECTED FLAG 

2061 : ADJUST COUNT IF NOT, GET REST OF PACKET. IF WAS DATA PACK, 
2062 : AND NOT IN TEST 8, SEND “'XOFF’’ TO ENHANCE THROUGHPUT AND GO 
2063 : TO NEXT UNIT (IF ANY). IF IN TEST 8, DO NOT SEND ‘XOFFF'’. 
2064 : INPUTS: (IMPLIED)UNITS DATA BLOCK POINTED TO BY RS. NONE PASSED. 
2065 : RSNDSZ = END PACK SIZE 
2066 : RSDNSZ = DATA + END SIZE 
2068 + OUTPUTS: SYSTAT = UPPER BYTE=1ST BYTE RECEIVED, CURRENT UNIT 
2070 ‘ 
2071 007426 000240 GTPKS8:: NOP :GET ALL UNITS RESPONSES XOFF IF DATA PAK (THROUGHPUT) 
2072 007430 022737 000002 003340 CMP #2, TESTS teeeee IS THIS TEST 8 
2073 007436 001006 BNE 1$ Seeeee NO 
2074 007440 022765 000000 000210 CMP #0. MRSP (RS) peeeee IF SO, IS THIS UNIT MODIFIED 

007446 001002 BNE ieeeee YES, CONTINUE NORMALL 

2076 007450 000137 010114 JMP No GP8 teeeee ELSE, SKIP ROUTINE 

2077 007454 012737 003346 010210 1S: MOV WOLKTL GIPTR :=>1ST 
2078 007462 017705 000522 GTAGIN: MOV @GTPTR,RS *GET DATA BLOCK 

007466 032715 100000 BIT #B1T15. +B2s ABORTED? 

2080 007472 001403 BEQ $ NO 
2081 007474 004737 010122 CALL  SETSRV :YES~SET* SERVICED" AND 
2082 007500 000564 BR GTDOWN T0 
2083 007502 105765 000033 2$: TSTB XSPKNM+1(R5) :NO, ANY PACKETS LEFT? 

084 007506 001003 BNE 3$ YES 
2085 007510 004737 010122 CALL  SETSRY [NO=HE 'S DONE 
2086 007514 000556 BR GTDOWN *SO ON TO NEXT UNIT 

2087 007516 105365 000033 3S: DECB XSPKNM+1(R5) § :NOW ITS ONE less PACKET 
2088 007522 017537 000106 003312 MOV @XSPTR(R5) ,RCFLG 2GET EXPECTED FLAG 
2089 007530 062765 000002 000106 ADD #2,XSPTR(RS) 
2090 007536 017537 000106 003314 MOV SXgPTRRS) RCBCNT ~ AND EXPECTED COUNT 
2091 007544 022737 000002 003340 CMP #2, TESTS seeken IF TEST 8 
2092 007552 001404 BEQ 1$ jeanne DO NOT SEND XON 
2093 007554 012700 007424 MOV #EXON,RO XON 

a eeT IME CRITICAL 

2095 007560 004737 007100 CALL SNDBYT teeeSEND IT 
2096 007564 016500 000104 1$: MOV PKPTR(RS) ,RO i #**-2WHERE 1ST BYTE GOES 
2097 007570 004737 010212 CALL  GTBYT teeeGET IT 
2098 007574 032715 100000 BIT #B1T15,aR5 ;ABORTED? 
2099 007 001403 BEQ [NO=CONTINUE 
2100 007602 105065 000033 CLRB §_ XSPKNM+1(R5) =: YES-NO MORE PACKETS EXPECTED 

2101 007 000521 BR GTDOWN SON TO NEX 
2102 007610 005300 4$: DEC RO <= >BYTE JUST RECEIVED 

2103 007612 111037 003305 MOVB = a@RO, SYSTAT#+1 VE 
2104 007616 121037 003312 CMPB = ARO. RCFLG iIS IT UHAT EXPECTED? 
105 007622 001436 BEQ GTOK 

106 007624 105065 000033 UNXPCT: CLRB  XSPKNM#1(R5) eNOS MUST BE LAST ZREPLY 
2107 007630 121027 000002 CMPB = @RO, ARSEND ‘MAYBE AN END P 
2108 007634 001004 BNE 4$ ‘NO 
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GTPKSS / GET RESPONSES (NO RETRIES) SEQ 0054 
2109 007636 012737 000016 003314 MOV WRSNDSZ,RCBCNT ;YES, USE PROPER COUNT 
2110 007644 000406 BR T SAND GET IT 
2111 007646 1210¢7 000001 4$: CMPB = @RO, ARSDATA [1S IT DATA? 
gi12 007652 001077 BNE GTDOWN ‘NO, ALL OVER, CHKANS WILL INIT UNIT 
2113 007654 012737 000222 003314 MOV ARSDNSZ,RCBCNT YES, USE COUNT OF DATA + END PAK SURE TO FOLLOW 
2114 007662 905200 GTUM: INC RO ‘WHERE TO STUFF THE REST 
2115 007664 005337 003314 5$: DEC RCBCNT [ONE DOWN 
2116 007670 001470 BEQ GTDOWN ‘NONE TO GO 
2117 007672 004737 010212 ; CALL § GTBYTE [MORE TO GO 
2118 007676 032715 100000 BIT #B1T15,aR5 : TIMEOUT? 
2119 007702 001063 BNE GTDOWN : 
2120 007704 005765 000074 TST DLV(RS) ‘BUT DLV ERROR? 
2121 007710 001765 BEQ NO 
2122 007712 105065 000033 CLRB §_ XSPKNM+1(R5) =: YES=LAST TIME 
e123 007716 000455 BR GTDOWN :ON TO NEXT 
2125 007720 005200 GTOK: INC RO :NEXT PLACE IN BUFFER 
2126 007722 022737 000002 003340 1S$: CMP #2, TESTS teeeee IF NOT TEST 8 
2127 007730 001020 BNE 7$ tease DO NOT SEND ‘CONT 
2128 007732 PUSH RO SeeeeeSEND CONT’ FOR MRSP 
007732 010046 Mov RO,-(SP) 
2129 007734 012700 010116 MOV #MODRSP RO ; 
2130 007740 004737 007100 CALL  SNDBYT : 
2131 007744 000240 NOP 
2132 007746 012737 000001 010120 MOV #1,MRSDLY yeeee® ANOTHER DELAY 
2133 007754 005000 2$: CLR RO aittt 
2134 007756 005300 3$: DEC RO :eeeee TO GET AN ERROR 
2135 007760 001376 BNE 3$ texans IF MRSP DOESN'T WORK 
2136 007762 005337 010120 DEC MRSDLY peakee 
2137 007766 001372 BNE 2$ : 
2138 007770 POP RO ; 
007770 012600 MoV (SP)+,RO 
2139 007772 005337 003314 7$: DEC RCBCNT :MORE BYTES? 
2140 007776 001413 BEQ 4$ [NO-ALL DONE 
2141 010000 004737 010212 CALL  GTBYTE SYES-GET IT 
2142 010004 032715 100000 BIT #B1T15,aR5 : TIMEOUT? 
2143 010010 001020 BNE GTDOWN YES 
2144 010012 005765 000074 TST DLV(RS) ERROR? 
2145 010016 001741 BEQ 1 NO 
2146 010020 105065 000033 CLRB §_ XSPKNM+1(RS) = : LAST _TIME 
2147 010024 00041 BR "EX 
2148 010026 122775 000001 000104 4S: CMPB §- #RSDATA,@PKPTR(R5) :WAS DATA? 
2149 010034 001006 BNE 7NO, ALL DONE 
2150 010036 010065 000104 MOV RO,PKPTR(RS) | :START OF NEXT PACK NEXT TIME 
2151 010042 012700 007425 #EXOFF ,RO :XOFF AND SEND TO 
213 010046 004737 007100 CALL _—SN : CE THROUGHPUT 
2153 010052 062765 000002 000106 GTDOWN: ADD #2.,XSPTR(RS) :NEXT XSFLG FOR NEXT TRY 
2154 010060 02 727 010210 003364 CMP GTPTR,#LSTDEV DONE ONE CYCLE ALL UNITS? 
2155 010066 103005 BHIS iY 
2156 010070 062737 000002 010210 ADD #2,GTPTR ‘NEXT UNIT 
2157 010076 000137 007462 JMP GTAGIN SCONTINUE RECEIVE 
2158 010102 105737 010206 1$: TSTB = SERVST “DONE SERVICING ALL PAKS 
2159 ‘FROM ALL UNITS? 
2160 010106 001402 BEQ ENDGP8 YES 


ro 


GL 

GTPKS 
21 
21 
21 


21 
21 
21 
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/ GET RESPONSES (NO RETRIES) 

61 010110 000137 007426 JMP 

62 010114 000207 ENDGP8: RETURN 


63 
4: 010116 020 MODRSP: ovre 
66 010120 000000 MRSDLY: .WORD 


uw 


GTPKS8 


RSCONT 


:NO, KEEP TRYING 
RETURN 


SEQ 0055 









L AREAS MACRO M1113 25-SEP-81 10:06 PAGE 60 
ay / SET UNIT SERVICED 
2169 .SBTTL SETSRV / SET UNIT SERVICED 
2177 :+ 
i272 ; SETSRV = RESET THE BIT IN SSERVST" CORRESPONDING TO THE UNIT NUMBER. 
217 ; INPUTS ~ SERVST = ‘SERVICED’ WORD 
2174 ; - aR5 = UNIT # (BITS 0, 1, 2) 
2175 ; OUTPUTS - SERVST MODIFIED 
$178 a 
2178 010122 SETSRV: PUSH  R5 :SET UNIT SERVICED 
010122 010546 MOV RS,-(SP) 
2179 010124 PUSH = RO 
010124 010046 MOV RO,-(SP) 
2180 010126 011505 MOV ars,R5 :GET STAT wD 
2181 010130 042705 177770 BIC #177770,R5 :MASK UNIT # 
2182 010134 012700 010166 MOV #SRVTBL,RO t=>TOP OF BIT TABLE 
2183 010140 005705 1$: TST R5 ‘RIGHT ONE? 
2184 010142 001404 BEQ 2$ YES 
2185 010144 062700 000002 ADD #2,RO [NO, =>NEXT 
2186 010150 005305 DEC R5 71 LESS 
2187 010152 000772 BR 1$ * CONTINUE 
2188 010154 041037 010206 2$: BIC @RO,SERVST *MOW IT DOWN 
2189 010160 POP RO 
010160 012600 MOV (SP)+,RO 
2190 010162 POP RS 
010162 012605 MOV (SP)+,R5 
2191 010164 000207 RETURN RETURN 
2193 010166 000001 SRVTBL: .WORD BITO :BIT POSITION LOOKUP TABLE 
2194 010170 000002 -WORD BIT1 
2195 010172 -WORD BIT2 
2196 010174 000010 .WORD BIT3 
2197 010176 000020 .WORD BIT4 
2198 010200 000040 “WORD BITS 
2199 010202 000100 ~WORD BIT6 
3200 010204 000200 -WORD BIT7 
2202 010206 000000 SERVST: .WORD 
2203 010210 000000 GTPTR: WORD 














SEQ 0056 
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GTBYTE / GET A BYTE FROM UN SEQ 0057 


$206 -SBTTL GTBYTE / GET A BYTE FROM UNIT 
2208 i+ 
2209 ; GIBYTE - TEST INTERFACE FOR "READY-TO-RECEIVE’ AND INPUT A BYTE, IF 
2210 3 SO. IF NOT, THE FOLLOWING OCCURS: SEND ‘XOFF’ TO UNIT IN IN 
2211 : PREPARATION FOR “C CHECK ("BREAK’ TO SUPERVISOR). WAIT 
ele : TO SEE IF A CHARACTER SLOPS OVER DUE TO UART LATENCY. IF 
221 : ONE DOES THEN MIGHT AS WELL GET IT AND SEND ‘XON' TO GET 
2214 : THE REST OF THE MESSAGE . OTHERWISE. EAK'. THEN SEND 
2215 : "\ AND TEST FOR LONG TIMEOUT (A 30 SECOND REWIND). IF SO, 
2216 3 LOG ERROR, OTHERWISE REPEAT THE ABOVE UNTIL READY OR TIME OUT. 
$sit H REMEMBER TO PRESERVE RO SINCE THE ‘BREAK’ TRAP CLOBBERS !T. 
2219 : INPUTS = RO POINTS TU INPUT BUFFER 
2220 ; - IMPLIED UNITS DATA BLOCK 
$553 3 - CSRCVB TIME OUT MULTIPLIER 
2223 : OUTPUTS = RO IS INCREMENTED 
$55¢ ; - DLV (R5) NON-ZERO ON INTERFACE ERROR. 
2226 3; ERROR - TIME OUT ON RECEIVE 
$556 = 
2229 010212 005037 010436 GTBYTE:: CLR _GBTMP | s TIMEOUT REGISTER 
2230 010216 013704 003344 MOV . CSRCVB,R4 Hy ERROR CONSTANT (MULTIPLIER) 
2231 010222 105775 000022 1$: TSTS SReSRURS) READY? 
2232 010226 100013 BPL 3$ “NO 
2233 010230 017565 000024 000074 MOV @RCDB(RS) ,DLV(RSS ;GET ERROR + BYTE 
2234 010236 116520 000074 MOVB  ODLV(R5),(RO)+ ;COPY BYTE TO BUFFER 
2235 010242 005765 000074 TST DLV(R5) ‘ERROR? 
2236 010246 100472 BMI 4$  YES“EXIT 
2237 010250 005065 000074 CLR DLV(RS) :NO-RESET 
2238 010254 000467 BR 4$ AND EXIT 
2239 010256 005337 010436 3$: DEC GBTMP ‘DEC T.0. CONSTANT 
240 010262 001357 BNE 1$ :STILL VALID 
$o7s ;CODE TO SEE “C DURING LONG SEEK SHE a. =0 
2244 010264 010037 010440 MOV RO, GBTMP2 :RO MUST BE PRESERVED! 
2245 010270 012700 007425 MOV #EXOFF ,RO TQUIET THE DEVIC ce 
2246 010274 004737 007100 CALL § SNDBYT ‘BY SENDING XOFF 
2247 010 105775 022 6$: TSTB @RCSR(RS) 7 anal a SLOP OVER? 
2248 010304 100415 BMI 5$ 
2249 010 005337 010436 DEC GBTMP ENOMWAIT A WHILE 
2250 010312 105737 010436 TST8 § GBTMP “DONE WAITING? 
2251 010316 001370 BNE 6$ NO 
2252 010320 BREAK SYES-NO SLOP OVER 
010320 104422 TRAP  C$BRK 
2253 010322 012700 007424 MOV #EXON,RO ZSTART DEVICE TALKING 
2254 010526 004737 007100 CALL  SNDBYT AGAIN 
2255 010332 013700 010440 MOV GBTMP2 RO :RESTORE RO 
2256 010336 000426 BR 7$ KLUGE 
2257 010340 013700 010440 5$: MOV GBTMP RESTORE RO 
2258 010344 017565 000024 000074 MOV ta Fy sae “GET ERROR + BYTE 
2259 010352 116520 000074 MOVB  DLV(RS),(RO)+ COPY BYTE TO BUFFER 
2260 010356 005765 000074 TST DLV(RS)- TER 
2261 010362 100403 BMI 17$ ee EXIT 


ro 


AREAS 


33 it: 010364 
263 010370 
2264 010372 
2265 010376 
2266 010402 
2267 010406 
2268 010412 
2269 010414 
2270 B10e59 
2271 010422 
2272 Beg: 
2273 010430 
2274 010434 
2275 010436 
2276 010440 
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GTBYTE / GET A BYTE FROM UN 


005065 
0004 


000074 
010440 


010436 


000050 
012500 


17$: 


7$: 


4$: 


GBTMP: 
GBTMP2: 


PAGE 62-1 


oW 
- WORD 


DLV(RS) :NO-CLEAR 

RO, GBTMP2 OOAIN SAVE RO 

#EXON,RO RESTORE TO TALKING STATE 

SNDbYt™ ‘BY SENDING 'XON' 
GBTMP2,RO SRESTORE RO 

re 3D 

GBTMP 

R4 : TIMEOUT? 

1$ 3NO 

ATORCVB,R4 YES 

LOG ‘LOG ERROR. 

RETURN 
0 
0 


SEQ 0058 


EAS 


GLOBAL AR 
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2291 
2292 010442 
2293 


2294 010444 
2295 010452 
2296 010454 
2298 010460 


2299 
2300 010462 
2301 010470 


10536 
3312 010544 
2314 010546 
2316 010550 
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000240 
032737 
001403 
004737 
000432 
012737 


000006 
010552 


003346 
000054 
100000 
000002 
000000 


010552 
010550 


000002 


003304 


010550 


003340 


000210 


003364 
010550 


«SBTTL CHKANS / CHECK DEVICE(S) RESPONSE 

*CHKANS - AS_IN “'GETANS'', IF RETRYING DO ONLY 1 UNIT EL 
ABORTED UNITS. TE, IF iN TEST 8 AND 
MODIFIED DO NOT CHECK Rares 

INPUTS: lg SYSTAT a He (RETRY ING) 
BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV = ADDR. oF ALAST UNIT'S DATA BLOCK 


OUTPUTS: NONE PASSED. 


Be Se Se Se Ge Be Ge Ge Ge ‘> 


CHKANS:: NOP zIF RETRY THEN CHECK ONE 
“ELSE CHECK ALL 
#B1T1!BIT2,SYSTAT sRETRYING? 


CHK s 
CHKPKS sYES DO SINGLE UNIT 
7R5 => UNIT 
CHKANR zALL DONE 
WBLKTBL,CHKPTR ;YOU KNOW ... TOP OF TABLE 
@CHKPTR, *RS 3GET UNIT*S BLOCK ADDRESS 
#B81T15,aR5 — 
#2,TEST8 peeeee IS THIS TEST 8 
khkhe NO-CONTINUE NORMALLY 
#0,.MRSP(RS) Tekeee IF SO, IS THIS UNIT MODIFIED 
3$ Petits NO SKIP NEXT INSTR 
CHKPKS =NO, DO THIS GUY 
CHKPTR,#LSTDEV ;ALL DONE? 


HKAN : 
#2,CHKPTR 3NO,-->NEXT DEVICE 
2s ;DO DA 


CHKPTR: .WORD 


SEQ 0059 





£o 
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CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / SEQ 0060 
3319 .SBTTL CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / 
2321 3+ 
$30¢ : CHKPKS - FOR UNIT RS AND FOR ALL PACKETS, CHECK TO SEE iF PACKET Is. DATA OR 
232 ; END PACK, CHECK CHECKSUMS, COMPARE D AID A PACK, C 
2326 : SUCCESS CODE IF END. IF UNKNOWN PACKET ¢ IEHECK, For INTERFACE 
2325 ; ERROR. IF CONTINUE’ FALL THROUGH. IF ‘ nee SET ‘'SEND 
2326 : AK" FLAG. CALL "LOG'’ WITH R4=ERROR NUMBER IF ERROR. 
2327 ; THIS ROUTINE IS ALSO USED TO DETERMINE THE PROTOCOL OF A UNIT. IN 
2328 ; THE FIRST PART OF TEST 8 A GET CHARACTERISTICS C PACKET WAS 
2329 : SENT TO THE TUS8. IF THE RE WAS A DATA PACKET, WHICH IS 
2330 : EXPECTED, THEN THE UNIT IS NOT MODIFIED, AND THE MRSP 
2331 : CLEARED. IF THE RESPONS Is AN END PACKET, WHICH WOULD BE 
2332 : HANDLED BY THIS ROUTINE AS AN UNKNOWN, THEN THE UNIT IS MODIFIED, 
2333 : D THE MRSP FLAG IS SET. 
3336 > INPUTS: CIMPLIED) UNITS DATA BLOCK 
2336 + OUTPUTS: ERRORS = DLV ERROR 
2337 : - UNKNOWN FLAG BYTE ERROR 
2338 : - CHECKSUM ERROR 
2339 : - DATA COMPARE ERROR 
2340 : R4 = ERROR NUMBER 
341 : SYSTAT UPPER BYTE = 1ST BYTE OF RESPONSE 
2343 ; 
2344 010552 000240 CHKPKS:: NOP :CHECK WHAT WAS RECIEVED 
2345 010554 042715 000010 BIC #B1T3,aR5 [CLEAR "BAD FLAG’ RETRY BIT 
2346 010560 016500 000102 MOV RCVBUF (R5) ,RO 3GET BUFFER ADDR. 
2347 010564 116502 000032 MOVB = XSPKNM(R5) .R2 # OF PACKETS EXPECTED 
2348 010570 012703 000034 MOV #XSFLG,R3 “THE OFFSET V 
2349 010574 060503 ADD R5,R3 [R3-=>THIS UNIT XSFLG AGAIN 
2350 010576 010301 MOV R3.R1 3 COPY T 
010600 062701 000002 ADD #2.R1 :R1-—>XSBCNT FOR 1ST PACKET 
010604 010065 000104 1$: MOV RO.PKPTR(RS) | :POINT TO PACKET 
2353 010610 111037 003305 MOVB aRO,SYSTAT+1 SAVE RCV'D BYTE 
2354 010614 0611137 003314 MOV @R1.RCBCNT [GET COUNT 
2355 010620 011337 003312 MOV aR3.RCFLG SAND FLAG 
2356 010624 121013 CMPB ss @RO. @R3 [1ST BYTE=EXPECTED? 
2357 010626 001057 BNE 5$ [UH OH... 
2358 010630 121027 000020 CMPB = ARO, ARSCONT 70K, IS IT 1 BYTE? 
2359 010634 0015 BEQ 7$ SYES..-ONTO NEXT PACK 
2360 :NO, $0 > 1 Byte (NEVER EXPECT INIT!) 
2361 010636 013704 003314 MOV RCBCNT,R4 S EXPECTED COUNT MUST BE RIGHT 
3362 010642 005744 TST ~(R4) SADJUST F PRon RECEIVE COUNT TO COUNT FOR CHECKSUM 
2363 010644 004737 013614 CALL § CKCKSM [CHECK CHECKSUM 
2364 010650 103005 BCC 2s =NO CARRY...NO INCORRECT 
2365 010652 012704 000022 MOV WED CHK ,R4 ERROR 
2366 010656 004737 012500 CALL 06 [LOG IT 
2367 010662 000521 BR § [0N TO NEXT PACK 
2368 010664 122710 000002 2$: CMPB = #RSEND, (RO) SEND PAK? 
2369 010670 001005 BNE 3$ : 
3370 010672 004737 011146 CALL § CHKEND + YES=CHECK 
371 010676 012702 000001 MOV #1,R2 SLAST PACKET 
3372 010702 000511 BR SAND FALL T 
2373 010704 122710 000001 3$: CMPB  =s #RSDATA, aRO SDATA PAK? 
2374 010710 001012 BNE 4 NO 
2375 010712 022737 000001 003340 CMP #1, TESTS teeeee IS THIS TEST 8 
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CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / 
3 010720 00100 BNE 

010722 005065 000210 CLR 
é 38 010726 0004 $ BR 
2379 010730 004737 014414 11$: CALL 
2380 010734 000474 12$: BR 
2381 Ae o3shh? 020010 4$: BIS 
seee 010742 012704 000010 MOV 
2383 010746 005765 000074 TST 
2384 010752 001402 BEQ 
2385 010754 012704 000012 MOV 
2386 010760 004737 012500 20S: CALL 
2387 010764 000467 BR 
2388 
2389 
2390 
2391 010766 122710 000004 5$: CMPB 
2392 010772 001007 BNE 
2393 010774 052715 020010 BIS 
2394 011000 012704 000006 MOV 
2395 011004 004737 012500 CALL 
2396 011010 000455 BR 
2397 011012 122710 000001 6$: CMPB 
2398 011016 001013 BNE 
2399 011020 012704 000204 MOV 
2400 011024 005744 TST 
2401 011026 004737 013614 CALL 
2402 011032 103430 BCS 
2403 011034 004737 014414 CALL 
2404 
2405 
2406 011040 062700 000204 ADD 
sion 011044 000657 BR 
2409 011046 122710 000002 9$: CMPB 
2410 011052 001331 BNE 
2411 011054 012704 000016 MOV 
2412 011060 005744 TST 
2413 011062 004737 013614 CALL 
2414 011066 Moses BCS 
2415 011070 022737 000001 003340 CMP 
2416 011076 001003 BNE 
2417 011100 012765 000001 000210 MOV 
218 011106 004737 011146 13$: CALL 
$i5e 011112 000414 BR 
2422 011114 012704 000022 108: MOV 
2423 011120 004737 012500 CALL 
stSe 011124 000407 BR 
426 011126 005708 7$: DEC 
2427 0111 00140 BEQ 
2428 011132 063700 003314 ADD 
se6p 011136 o6sisi CMP 
$ 011140 022323 CMP 
431 011142 20 
2432 011144 000207 8$: RETURN 


11$ 

MRSP(RS) 
es 
OMPAR 


$ 
#B81T3!B1T13,aR5 ; 
OTL,R4 


DLV(RS) 
#OVRN,R4G 
LOG 


sHERE CHECKS UNEXPECTED RESPONSE 


ae ae 


6 
#81T3!B1T13,aR5 
#RCINIT,R4 


8$ 
#RSDATA,aRO 
#RSDASZ ,R4 
=(R4) 
CKCKSM 

10$ 

COMPAR 


#RSDASZ RO 
1$ 


#RSEND , (RO) 
i; * 5 pant 
CKCKSM 

#1 TESTE 
#1, MRSP(RS) 
CHKEND 


8$ 
#BDCHK ,R4 
LOG 
8$ 


SEQ 0061 


; sees NO-CONTTINUE NORMALLY 
;*eeee CLR MRSP FLAG 
peewee SKIP INSTR 
3 YES~CHE Ck DATA 


TALL 
aT *BA LAG RETRY FLAGS 
tAH.BUT DLV ERROR? 


NO 
2 YES-USE CORRECT ERROR # 
: TALLY 


INIT? 
TYES-SET RETRY FLAGS 
+ WE GOT AN INIT 


STALLY IT 
ZDATA PAK? 


ZYES, a oh cs aia 
ADJUST FOR CHK 

3 AND CHECK 

20K, HOW'S THE DATA? 
: EXPECTED END, GOT 
;DATA ND. 


:POINT. TO END PACK 

CHECK IT, USE SAME XSFLG 
ND? 

3NO-OUT TO LUNCH 

zYES, TOTAL SIZE MINUS 

2 TWO Se CHK SUM) 


:00PS 

peeene TS THIS TEST 8 

;*eeee NO-CONTINUE NORMALLY 
geeeee IF SO, SET THE MRSP FLAG 
:0K,NOW TEST SUC. CODE 


ALL DONE 
; CHECKSUM ERROR 

EXIT 

ANY PACKETS LEFT TO CHECK? 
yes, POINT TO NEXT PACKET 
:POINT TO Went ExeecteD COUNT 


D EXPECTED 
‘TRY ANOTHER, THEY*RE SMALL 
ETURN 


GLOBAL AREAS MACRO M1113 25-SEP-81 10:06 PAGE 68 
CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / SEQ 0062 
435 .SBTTL CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 
2437 r++ 
438 : CHKEND = IF RETRYING:DETERMINE IF DATA ERROR OR BAD FLAG BYTE ERROR RETRY. 
2440 : IF RETRYING BAD FLAG:RESET RETRY FLAG(SINCE OPERATION IS COMPLETE), 
2441 : AND CHECK SUCCESS CODE. 
244 ; IF RETRYING, DATA ERROR ; CHECK SUCCESS CODE AND | IF 0 PRINT {RECOVERED, LOG 
244 ; SOFT ERROR, END RETRY STATUS. IF NOT 0 AN STILL 
24be ; CHECK’ ERROR = DETERMINE WHETHER TO CONTINUE W ANOTHER’ ReTNy OR 
gitis : LOG "UNRECOVERABLE’’ ERROR 
2467 ; IF NOT RETRYING DATA ERROR; CHECK IF "DATA CHECK’ ERROR SUCCESS CODE, 
2448 ; AND IF SO,START RETRY, ELSE E 
2449 t INPUTS: IMPLIED UNITS DA 
2450 ; OUTPUTS: RETRY (SYSTAT BIT 1AND 2), (B 110 @R5) RESET IF RETRYING. 
2451 : DATA COMARE ERROR (BIT6 @R5) CLEARED. 
g45e ; - REDUCED/NORMAL GAIN (BIT7 @R5) ADJUSTED 
2454 
2455 011146 000240 CHKEND:: NOP 
2456 011150 PUSH RO :RO <=> END PAK 
011150 010046 MoV RO,-(SP) 
2457 011152 PUSH RG 
011152 010446 MOV R4,-(SP) 
2458 011154 032737 000006 003304 1S: BIT #B1T1!B1T2,SYSTAT :RETRYING? 
2459 011162 001406 BEQ NOREE iNO-CHE CK NORMALLY 
2460 011164 032737 000004 003304 BIT WRIT2,SYSTAT  :IS IT BAD FLAG TYPE? 
2461 011172 001454 BEQ CHKREE *NO(DATA TYPE) 
2462 011174 042715 020000 BIC #B1T13,aR5 7YES, SO IF END PACK THEN RETRY'S COMPLETE 
2463 011200 004737 012164 NOREE: CALL  CHKSUC [CHECK SUCCESS CODE 
2464 011204 032715 100000 BIT #B1T15,aR5 * ABORTED? 
2465 011210 001402 BEQ 3$ 7NO, CONT 
2466 011212 000137 011670 JMP CHKRET 7YES EXIT 
2467 011216 105765 000077 3$: TSTB  SUCCS+#1(R5) :NO; 'D WE 00? 
2468 011222 001013 BNE CHKERR :NOT OOD. 
2469 011226 032715 000100 BIT #B1T6,aR5 70K, HOST FIND DATA PAK ERROR? 
2470 011230 001002 BNE 2$ :YES 
2471 011232 000137 011670 JMP CHKRET NO 
3472 011256 012704 000014 2s: MOV #BDCOM,R4 ‘YES; JUST BAD DATA-NO DATACHK ERR 
2473 011242 004737 012500 CALL LOG 3BAD DATA IN PACKET 
2476 011246 000137 011670 JMP CHKRET T 
2475 011252 032715 001000 CHKERR: BIT #B1T9,aRs BAD SUCCESS; TU DATA CHK ERROR? 
2476 011256 001002 BNE 1$ = YES 
2477 011260 000137 011670 JMP CHKRET ‘NO. ALL DONE. 
478 011264 052715 002000 1$: BIS #21710, RS SYES=START RETRY 
479 011270 012765 000001 000002 MOV evke (R5) | :CALL IT 1ST 
489 011276 PRINTX Satie, RETRY(RS) :** PRINT ** 
011276 016546 000002 MOV RETRY(RS),-(SP) 
011302 012746 012050 MOV #RTIRYN, = (SP) 
011 012746 MOV #2,-(SP) 
011312 010600 MOV P-RO 
011314 104415 TRAP  CSPNTX 


2a 
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SeeeeNe 
Sanne So 
TSInENSY Sot 
AAO 


aE 


— 


wr 


SEESIEY 
ORAM 
= os 
we Ving 
Sf. = 


WW 
S338 

a 

FSUs 
$28ts 2 


< 


8 
S 


=-—ooo 
Sse 
SNES 
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& 
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232 


So 
= 


So 
= 
N“ 
R 
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5 


& 


So 
w 


oor WUMo —VIUuN 


NS 

RVIORS 
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os 


g 
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—_ 
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MUU BS BEE 
288 
Se 


— 
uw 


BD Set et et 
Sous 
Mw 


SOSOSOSSOSOSSOSSOSOSSOSSSSS COOOCOSOSSCSCSCSCOSSCOOCSCSOOCOOCOOOOSOOCOOOoOoOoOoOooOo 
so 


eek ee ek etd ot od St os oe so Os ot os ee a eh a he eh ss a a 4 a es a ss St Hh) os 2s a a SS tS 
a St SS SS oS SS VV SS ee ts = Ss os Ls Ss 1s ss A) ) bs ) 1) ss SS) SS SS > 4s SS 2 ss Ss FH I YH YH YH 


oooo 


000006 


012164 
000077 


So0005 
011710 
000002 
000006 


011770 
000001 


000004 


012016 
000001 


000004 
000002 
002200 


003326 
000002 


000002 
012050 
000002 


25-SEP-81 10:06 PAGE 68-1 
And DETERMINE RETRY STATUS / 


BR 
CHKREE: CALL 
TSTB 


2$: 


UNSUC: 


000002 2$: 








CHKRET 

CHKSUC 
SUCCS*1(R5) 
UNSU 
#RECOV,RETRY(RS) 


(R5) 
2s 
#THRSLO 


3$ 
#THRSHI 


#81T8,aR5 
#SFTRD RS 
#SFTUR,RS 
0G 


L 

RETRY(R5) 
#81T10!B1T7,aR5 
CHKRET 


#B1T9,aR5 
#RETERR 


RETRY(R5) 


: IES 
#81110!B1T7.aR5 :NO RETRY, NORM THRESHOLD 
MXRTRY RETRY(RS) VES. DID WE GRADUATE TO HARD? 


INC RETRY(RS) NO 
PRINTX #RTRYN,RETRY(RS) 


L_ DONE 
ECK SUCCESS CODE 
SUCCES 


DETERMINE THRESHOLD 
;1T°S MODIFIED 


sWRITE OR READ OPERATION? 
7 WRITE 


RESTORE TO NORMAL STATE 
ns NORM THRESHOLD 


SEE IF HARD YET 
TU DATA CHECK ERROR? 


7Y 
3NO-"‘OTHER-ERROR’’ ERROR 















RETRY(R5) ,=(SP) 
#RECOV, (SP) 
#2,-(SP) 


ad 


#6,SP 


#THRSLO, -(SP) 
#1,-(SP5 
SP,RO 


#4,SP 


#THRSHI ,~(SP) 
#1,-(SP) 


& 


#4 ,SP 


#RETERR,-(SP) 
#1,-(SP5 


RETRY(RS),-(SP) 
#RTRYN, -(SP) 
#2,-(SP) 

SP,RO 





2a 


2546 012112 
2547 
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DETERMINE RETRY STATUS / 


GLOBAL AREAS 
CHKEND / CHECK SUCCESS AND 
O11 36¢ 108619 
1 
s2i¢ 011570 $95 708 
513 011574 001403 
2514 011576 042715 
2515 011602 00043 
$216 011604 05271 
2517 011610 00042 
2518 011612 000240 
2519 011614 
011614 012746 
011620 012746 
011624 010600 
011626 104415 
0116 062706 
2520 011634 032715 
2521 011640 001003 
2522 011642 012704 
2523 011646 000402 
2526 011650 012704 
2525 011654 004737 
2526 011660 005065 
$256 011664 042715 
2529 011670 042737 
2530 011676 042715 
2531 011702 
011702 012604 
2532 011704 
01 012600 
2533 011706 000207 
2534 
2535 
2536 011710 045 
2537 
$236 011770 045 
sa0 012016 045 
7 012050 045 
2544 012070 045 
045 


000006 
000200 
000200 
000200 


012070 
000001 


000004 
000400 


000016 
000020 
012500 
000002 
002200 


000006 
0C9100 


101 
101 
101 
101 
101 
101 


003304 


122 
040 
040 
122 
125 
117 


BIT 
BEQ 
BIC 
BR 
1$: BIS 
BR 
HRD1: NOP 
PRINTX 
BIT 
BNE 
MOV 
BR 
4$: MOV 
5$: CALL 
CLR 
BIC 
CHKRET: BIC 
BIC 
POP 
POP 
RETURN 
RECOV: .ASCIZ 
EVEN 
THRSLO: .ASCIZ 
EVEN 
THRSHI: .ASCIZ 
EVEN 
RTRYN: .ASCIZ 
EVEN 
UNREC: .ASCIZ 
EVEN 
RETERR: .ASCIZ 
VEN 


AD 
#B1T7,aR5 S NORMAL THRESHOLD? 
i VES-REDUCE GAIN 
woe ;NO-NORM 
Pe sREDUCED 
HERE IS HARD ERROR! 
MUNRE C 
MOV 
MOV 
MOV 
TRAP 
ADD 
#B1T8,aR5 zRD OR WR? 
sWRITE 
#HRDRD , R4 zREAD 
5$ :LOG_IT 
MHRDWR RS 7 WRIT 
LOG :LOG ite 
RETRY(RS) :BACK 


O NORMAL 
3NO RETRY. NOT REDUCED 
NO SYSTEM RETRY NEXT PASS 


#81T10!B1T7,aR5 
pt SYSTAT 
#681 


T6,@R5 3;NO MORE HOST DATA CHECK ERROR 
MOV (SP)+,R4 
RO 
MOV (SP)+,RO 


/ZARECOVERED FROM DATA CHECK ERROR RETRY # 2D12N/ 
/ZA NORMAL THRESHOLD2ZN/ 

/2A MODIFIED THRESHOLD 2N/ 

/TARETRY # 2D12N/ 

/ZAUNRE COVERABLE 2N/ 


/ZAOTHER ERROR DURING RETRY : EXIT RETRY2ZN/ 
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CHKSUC / INTERPRET SUCCESS CODE / SEQ 0065 


GLOBAL 


3550 .SBITL CHKSUC / INTERPRET SUCCESS CODE / 

2552 p++ 

2553 > CHKSUC = COPY SUCCESS CODE (BYTE) TO SUCCS+1(R5). INTERPRET SUCCESS 

2554 ; AND IF NOT 0, LOG APPROPRIATE ERROR. 

2555 : INPUTS: RO POINTS TO’END PACKET. 

2556 : @R5 = UNIT STATUS WORD 

9357 ; CMDSNT(R5) = COMMAND BYTE 

2559 OUTPUTS: R4 IS ERROR NUMBER IF ERROR. 

2560 ; SUCCS(R5) UPDATED. 

3561 ; BITS aR5 SET ON DATA CHECK SUCCESS CODE 
| 2563 

2564 012164 000240 | CHKSUC:: NOP 

2565 012166 016065 000002 000076 MOV —- 2(RO) ,SUCCS(R5) ;RO-->END PACKET | 

2566 012174 122760 000000 000003 CMPB  - WESOK. 3(RO) GET SUCCESS BYTE 

3967 012202 001535 BEQ 128 ;COMPLETE SUCCESS-EXIT 

2569 012204 122760 000001 000003 CMPB = WESTRY,3(RO) —- OK BUT RETRIES? | 

2570 012212 001012 BNE :NO 

2571 012214 126527 000100 000002 CMPB  CMDSNT(R5) ,#RSSRD;:A READ? | 

2572 012222 001001 BNE 228 3NO 

2574 012224 000520 BR 10$ :NO RETRIES IN MAINTENANCE ! : 

2575 012226 126527 000100 000003 22$:  CMPB §CMDSNT(RS) ,ARSS 3A WRITE? 

2576 012234 001001 BNE 20 ;NO 

2577 012236 000513 BR 10$ LOG IT 

2578 012240 122760 177737 000003 20$:  CMPB  #ESNOMO,3(RO) [NO MOTOR? 

2579 012246 001003 BNE ZNO 

2580 012250 012704 000030 MOV —- #NOMOT,,R4 :YES- | 

2581 012254 000506 BR 11$ :LOG 

2583 012256 122760 177757 000003 18: CMPB = WESCKS,3(RO) —; ‘DATA CHECK"’ ERROR? | 

2584 012264 001003 BNE : | 

2585 012266 052715 001000 BIS #B1T9,aRS SET DATA-CHK-ERROR FLAG 

2586 012272 000501 BR 12$ :DONT LOG 

2588 012274 126527 000100 000007 28: CMPB - CMDSNT(RS) ARSSSLF__; SELF TEST? 

2589 012302 001006 BNE ; 

2590 012304 105760 000003 TSTB —-3(ROD YES, NEG. IF ERROR 

2591 012510 100072 BPLSséd128 0K 

2593 012312 012704 000044 MOVs #SLFER, 4 ; YES-ERROR 

2594 012516 000465 BR 11$ LOG IT 

2596 012320 122760 177740 000003 38: CMPB = WESSK,3(RO) SEEK ERROR? 

2597 012326 001005 BNE 4$ ; 

2598 012330 012704 000024 MOV  ——- #SKERR,, R4 :YES- 

2599 012334 052705 040000 BIS #BIT14.R5 SET "DOBRK' FLAG 

2600 012540 000454 BR 11$ :L0G 

2602 012342 122760 177767 000003 4$: CMPB = #ESNCRT,3(RO) NO CART? 

2603 012350 001003 BNE 5$ :NO 

2604 012352 012704 000054 MOV —- #NCART, R4 ZYES= 

2605 012556 000445 BR 11$ :LOG 








EAS 
a on 
609 01 396 
at 012374 
$o16 012376 
615 012404 
2614 oiSeis 
2615 01241 
2616 
2617 012414 
2618 012422 
2619 012424 
2620 012430 
2621 
2622 012432 
2623 012440 


2 
2624 012442 
2625 012446 


2626 
2627 012450 


2631 

2632 012466 
2633 012472 
2634 012476 
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CHKSUC / INTERPRET SUCCESS CODE / 


120760 177720 
100 
013704 000040 


177770 
704 000036 


7 
44 177765 
04 000026 


s £3 
ao nj 


=8x 
3 


0 
177776 
012704 000034 


\earee 177711 
012704 000042 
00 


012704 000046 
004737 012500 


000003 


000003 


000003 


000003 


000003 


5$: 


6$: 


7$: 


8$: 


9$: 


~— = 
mo 
PARA 


#ESCMD,3(RO) 
#CMNDER ,R4 
11$ 


, menanniataneee 


#NOUNIT ,R4 
11$ 


 eaaaaatatis 
MWRLOCK ,R4 
11$ 


#ESPART ,3(RO) 
#PARTL,R4 
11$ 
#ESREC,3(RO) 
#RECERR ,R4 
11$ 


#SUCOTL,R4 
LOG 


NO UNDERSTAND HOST? 


:YES= 


;LOG 
:NON EXISTENT UNIT? 


3 YES~ 


WRITE LOCKED? 


;YES~ 


PARTIAL OP? 
:NO 
7 YES- 


; LOG 


;WRONG RECORD? 


; UNDEF INED 


;LOG ERROR 
RETURN 


SEQ 0066 
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LOG / TO LOG ERROR IN CORRECT PLACE SEQ 0067 
2637 .SBTTL LOG / TO LOG ERROR IN CORRECT PLACE 
2639 he 
2640 : L0G = DETERMINE IF ERROR IS FATAL, NON-FATAL OR FATAL AFTER N TRIES 
2641 : BY INDEX (ERROR #) INTO DEVICE DATA BLOCK. ADD THE DRIVE # TO 
264 : I ICATE UPPER OR LOWER BYTE AND INCREMENT THAT ERROR UNLESS 
264 : HAT BYTE WOULD OVERFLOW. DETERMINE IF EVL FLAG SET,AND IF SO, 
2644 3 CHECK THRESHOLD (EVLTHR) AND PRINT APPROPRIATE ERROR MESSAGE 
2645 3 DESCRIPTION. ABORT THE UNIT IF INDICATED THROUGH DODROP CODE. 
2646 : INPUTS: R4 = ERROR FODE 
2647 ; OUTPUTS: ABNDX(R5) = ERROR CODE. 
2648 ; DLV(RS) = “0 
2649 s LSLUN = UNIT NUMBER 
2650 — 
2651 
2652 012500 LOG:: PUSH RO 
012500 010046 MOV RO,-(SP) 
2653 012502 PUSH R17 
012502 010146 MOV R1,-(SP) 
2654 012504 PUSH —R3 
012504 010346 MOV R3,-(SP) 
2655 012506 PUSH RG 
012506 010446 MOV R4,-(SP) 
2656 
2657 012510 011537 002074 MOV SLUN :GET UNIT NUMBER 
2658 012514 042737 177770 002074 BIC ans ob SLU LSLUN ‘MASK IT OFF 
2659 012522 010465 000004 MOV R4,ABNDX(R5) sSAVE INDEX IN CASE OF ABORT MESSAGE 
2660 012526 012703 000120 MOV ALGOFST,R3 SOFFSET TO LOW ORDER BYTE (DRIVEO) 
2661 012532 060403 ADD R4,R3 FORM INDEX OF PARAM. TO UPDATE 
5006 012534 060503 ADD R5.R3 FORM ABSOLUTE ADDR. THIS UNIT 
2663 012536 004737 013504 CALL § WHCHDR ‘SEE WHICH DRIVE T'WAS 
2664 012542 103001 BCC 2$ tWAS DRIVE 
2665 012544 005203 INC R3 sDRIVE 1; POINT TO UPPER BYTE 
2666 Ois2e8 122713 000377 2s: CMPB #255. ,aR3 ;POTENTIAL OVERFLOW POSSIBLE? 
2667 012552 001005 BNE 
2668 012554 LOGO: ERRDF 0. OVRFLO.ERRDES’ sYES 
012554 104455 TRAP _— CSERDF 
012556 000000 .WORD 0 
012560 013400 “WORD OVRFLO 
012562 013034 “WORD ERRDES 
2669 012564 000312 BR ABO yABORT UNIT 
2670 012566 10521 LOGOK: INCB aR3 PINCRERENT THE ERROR 
2671 012570 111304 MOVB @R3,R4 TEMP 'L Y SAVE IT 
2672 O1¢57e 016503 000004 MOV ABNDX (RS) ,R3 GET INDEX AGAIN 
2673 012576 012701 002224 MOV #RSNTAB_R [FORM ADRS OF MSG 
2674 012602 066501 000004 ADD ABNDX(R5),R1 = SLIKE THIS 
2675 012606 042701 000001 BIC ‘INSURE WORD BOUNDARY 
2676 012612 032737 000004 016616 BIT #EVL,FLGLOC TEVL SELECTED? 
2677 012620 001414 BEG LOGOK2 :NO=CONT 


Vo 


GLOBAL AREAS _— MACRO M1113 25-SEP-81 10:06 PAGE 72-1 
LOG / TO LOG ERROR IN CORRECT PLACE SEQ 0068 

2678 012622 123704 002220 CMPB ss EVLTHR,, R4 :YES,OVER THRESHOLD? 

26/9 01 626 101011 BHI L : 

680 012630 010337 012642 MOV R3,DFTL1+2 [YES,LOAD ERROR # 

2681 012634 011137 012644 MOV ari ,DFTL1+4 SAND MESSAGE ADDR 

2682 012640 DFTL1: ERRDF 0,DFTL1,ERRDES :ERROR 
012640 104455 TRAP  CSERDF 
012642 000000 .WORD 0 
012644 012640 “WORD DFTL1 
012646 013034 “WORD ERRDES 

2683 012650 000460 BR ABO :DROP_IT 

2684 012652 120327 000014 LOGOK2: CMPB = R3,#BDCOM "NEVER FATAL’ TYPE? 

2685 012656 103011 BHIS NTISFT ‘NO 
12 010337 012672 MOV R3,L0G1+2 [YES, ERROR CODE 

2687 012664 011137 012674 MOV ari ,L0G1+4 ‘DESCRIPTION 

2688 012670 LOG1: ERRSOFT 0.,L0G1,ERRDES 
012670 104457 TRAP  CSERSOFT 
012672 «WORD 0 
012674 012670 “WORD LOG 
012676 013034 “WORD ERRDES 

2689 012700 000450 BR LOGO EXIT 

2691 012702 120327 000026 NTSFT: CMPB  R3,MWRLOCK ZONE TRY? 

2692 012706 103411 BLO MABEE iNO. MAYBE A MULTIPLE 

2693 012710 010337 012722 MOV R3 LOG2s2, ZYES 

2694 012714 011137 012724 MOV ari, LOG2+4 

2695 012720 LOG2: ERRHRD a Loge ERRDES ;PRINT HARD MESSAGE 

012720 104456 TRAP  CSERHRD 

012722 000 «WORD 0 
012724 012720 [WORD LOG2 
012726 013034 “WORD ERRDES 

2696 012730 000430 BR ABO :DROP UNIT 

2698 012732 042704 177400 MABEE: BIC #177400,R4 ZNEGATE SIGN EXTEND 

2699 012736 163704 003316 1$: SUB FTLNM,R& ‘SEE IF MULTIPLE OF 

2700 012742 001413 BEQ HRD [FTLNM-YES! 

2701 012744 103401 BLO SFT : 

3702 012746 000773 BR 1$ [NOT THERE YET 

2704 012750 010337 012762 SFT: MOV R3,L0G3+2 ZERROR CODE 

2705 012754 011137 012764 MOV ari, LOG3+4 : DESCRIPTION 

2706 012760 LOG3: ERRSOFT 0,L0G3,ERRDES 
012760 104457 TRAP  CSERSOFT 
012762 000000 .WORD 0 
012764 012760 “WORD LOG3 
012766 013034 7 ERRDES 

2707 012770 000414 BR LOGO ZEXIT 

2708 012772 010337 013004 HRD: MOV R3,LOG3B+2 SHARD ERROR CODE 

2709 012776 011137 013006 MOV ari, LOG3B+4 : DESCRIPTION 

2710 013002 LOG3B: ERRHRD 0,L0G3B,ERRDES 
013002 104456 TRAP  CSERHRD 
013004 000000 .WORD 0 
013006 013002 “WORD LOG38 

aie 013010 013034 “WORD ERRDES 

2712 013012 011500 ABO: MOV ars RQ :GET UNIT NUMBER 

2713 013014 042700 177770 BIC #177770,R0 SUN=SIGN EXTEND 

2714 013020 DODU = RO SUSE LOGICAL # TO DROP 


Vo 


GLOBAL _AREAS 
aris 013092 
013022 
2716 013024 
013024 
2717 013026 
013026 
2718 013030 
013030 


2719 013032 
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LOG / TO LOG ERROR IN CORRECT PLACE 


104451 
012604 


012603 


012601 


012600 
000207 


LOGO: 


POP 


POP 


POP 


POP 


RETURN 


R4 


R3 


R1 


RO 


- RESTORE 
MOV 


MOV 
MOV 


MOV 
;RETURN 


(SP)+,R4 
(SP)+,R3 
(SP)+,R1 


(SP)+,RO 


TRAP 


C$DODU 


SEQ 0069 
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LOG / TO LOG ERROR IN CORRECT PLACE SEQ 0070 

722 r++ 

zr 3 : ERRDES = CONTAINS CODE FOR EXTENDED ERROR INFORMATION: DRIVE #, 

724 : BLOCK #, ETC. 

a4 _ 

2727 013034 BGNMSG ERRDES ZERROR DESCRIPTION maa 

2728 013034 PUSH RO 
013034 010046 MOV RO,~(SP) 

2729 013036 PUSH = R2 
013036 010246 MOV R2,-(SP) 

2730 013040 005002 CLR R2 :PRESET TO DATA TYPE 

2731 013042 032715 000020 BIT #BI1T4,aRS ‘WHAT PACK TYPE? 

2732 013046 001401 BEQ 2$ DATA 

2733 013050 005202 INC R2 * COMMAND 

2734 013052 2$: PRINTB #UNIT,<B,DR(R5)>.R2,<B,SYSTAT+1> 
013052 005046 CLR -(SP) 
013054 153716 003305 BISB SYSTAT+1, (SP) 
13060 010246 MOV R2,-(SP) 
013062 005046 CLR -(§P) 
013064 156516 000060 BISB OR(RS),(SP) 
013070 012746 013226 MOV #UNIT,-(SP) 
013074 012746 000004 MOV #4,-(SP) 
013100 010600 MOV SP,RO 
013102 104414 TRAP  CS$PNTB 
013104 062706 000012 ADD #12,SP 

2735 013110 016509 000064 MOV REC(RS) ,RO ;RECORD NUMBER 

2736 013114 016502 000072 MOV PATTEN(RS) .R2 =: DATA EXPECT 

2737 013120 PRINTB #RECID,RO,<B, CMDSNT(R5)>,<B, Ro>, <B, SUCCS+1(R5)> 
013120 005046 CLR (SP) 
013122 156516 000077 BISB  SUCCS+1(R5), (SP) 
013126 005046 CLR =(SP) 
013130 150216 BISB 2, (SP) 
013132 005046 CLR Sp 
013134 156516 000100 BISB  CMDSNT(RS), (SP) 
013140 010046 MOV (SP) 
013142 012746 013306 MOV #RECID,-(SP) 
013146 012746 000005 MOV #5,-(SP) 
013152 010600 MOV SP.RO 
013154 104414 TRAP  C$PNTB 
013156 062706 000014 ADD #14,SP 

2738 013162 005765 000074 TST DLV(RS) :DLV ERROR? 

2739 013166 001414 BEQ ‘NO 

2740 013170 PRINTB WRECID2,DLV(R5) :YES-PRINT 
013170 016546 000074 MOV DLV(RS) .=(SP) 
013174 012746 013462 MOV #RECID2.-(SP) 
013200 012746 000002 MOV #2,~(SP5 
013204 010600 V re 
013206 104414 TRAP SPNTB 
013210 062706 000006 D #6.SP 

2741 013214 005065 000074 CLR DLV(RS) :RESET 

2742 013220 3$: POP R2 “RESTORE 
013220 012602 MOV (SP)+,R2 


AREAS 


GLOBAL 
LOG / TO LOG ERROR IN CORRECT PLACE 


2743 01322 
013593 


2744 OI3Sse 
013224 
013224 

2745 013226 

2747 013306 

2748 

2749 013400 

2751 013462 

2752 


MACRO M1133 25-SEP-81 


012600 


104423 
045 


045 
103 
045 


101 
101 
101 
101 


104 
102 
116 
040 


10:06 PAGE 74-1 


UNIT: : 
RECID:: 
OVRFLO: 
RECID2: 


POP 
ENDMSG 
-ASCIZ 
-EVEN 
-ASCIZ 
-EVEN 
-ASCIZ 
-EVEN 
eASCIZ 
-EVEN 


RO 
MOV (SP)+,RO 


sEXIT 
L10003: 
TRAP CSMSG 
/ZADRIVE# %01%A PAK SENT %01%A FLAG RCVD %032N/ 
/ZABLOCK# %04Z%A COMMAND %02%A EXPCTD %03%A SUCCESS %03%N/ 
/CAN'T UPDATE ERROR OR STATISTIC: OVERFLOW PENDING/ 


/%A RCDB WAS %062%N/ 


SEQ 0071 
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WHCHDR / SEE WHICH DRIVE IS ACTIVE SEQ 0072 


-SBTTL WHCHDR / SEE WHICH DRIVE IS ACTIVE 


++ 
3 INPUTS: DR(R5) 
3 OUTPUTS: CARRY=DRIVE (1 OR 0) 


27 
3768 013504 000241 WHCHDR:: CLC CLEAR CARRY 


2765 013506 105765 TSTB DR(R5) :DR 0? 
2766 013512 001401 BEQ 2s ;YES 


E 
sfer 013514 000261 SEC :NO 
2769 013516 000207 : RETURN ;RETURN 





AREAS 


2786 013524 
2787 013532 
2788 013536 
2789 013540 
2790 
2791 013546 
2793 013550 
2795 013552 
2796 013554 
2797 013556 
2798 013560 
2799 
2800 013562 
2801 013570 
2802 013572 
2803 013574 
2804 013600 
2805 013602 
806 
2807 013604 
2808 013606 


2809 013610 
013610 


2810 013612 
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CHKSUM / FORM THE PACKET CHECKSUM 


010346 


010246 


010301 
012602 


012603 
000207 


000001 
000001 


000001 


000001 


177400 





003304 


003304 


003304 


-SBTTL CHKSUM / FORM THE PACKET CHECKSUM 


;+4 
; THE CHECKSUM IS A 16 BIT CHECKSUM WITH END-AROUND CARRY. 


CHKSUM: : 


1$: 
2$: 
3$: 


4$: 


: INPUTS: 


R1 = CHECK 
PUSH R3 
PUSH = R2 
BIC #BITO,SYSTAT 
BIT #B1TO.R1 
BEQ 1 
BIS #BITO,SYSTAT 
ROR R1 
CLR R3 
ADD (RO)+,R3 
ADC R3 
DEC R1 
BNE 3$ 
BIT #BI1TO,SYSTAT 
BEQ 4 
MOVB (RO)+,R2 
BIC #177400,R2 
ADD R2,R3 
ADC 
MOV R3,R1 
POP R2 
POP R3 
RETURN 


a > yt gg TO) TOP OF PACKET 
RO. A WHERE To PUT CHECKSUM 


MOV R3,-(SP) 


MOV R2,-(SP) 


3""CHECKSUM IS ODD*’ BIT 


“AN ODD # OF BYTES? 
:NO 

:YES 

3/2 FOR WORDS 

;PREP CHECKSUM WORD 
FORM SUM 

[WITH CARRY 

[MORE WORDS? 

: YES 

:WAS IT ODD 

*YES GET NEXT BYTE 

SUN=SIGN EXTEND 

SADD IT IN 

SAND CARRY JUST IN CASE 
:RETURN IT IN CORRECT PLACE 


MOV (SP)+,R2 


MOV (SP)+,R3 
;RETURN 


SEQ 0073 


GLORAL AREAS 
CKCKSM / MODULE 


MN 
fo To] 
SS 

Ww 


09 CO CO C9 CO 
ted ad a ed 
OONAUIS 


9393080303 090808 
o 


Pp 
RRR 
Sun 


1 
2832 013626 
2833 013650 


2835 013632 

2837 013634 

2838 013636 

2839 013640 

2840 

2841 013642 

2843 013644 

2844 

2845 

2846 013646 
013646 

2847 013650 
013650 


2848 013652 
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TO CHECK THE CHKSUM 


012600 


012601 
000207 


013520 


-SBTTL CKCKSM / MODULE TO CHECK THE CHKSUMS 


MAKE “. THE eta RECEIVED = THE CHECKSUM CALCULATED. 

INPUTS oS "ie | OktEe ie COUNT 

OUTPUTS: CARRY SET IF CHECKSUM CALC'D DOES NOT EQUAL CHECKSUM SENT 
RO => THE PACKET TOP 


CKCKSM:: PUSH R1 
MOV R1,-(SP) 


PUSH RO ; SAVE 
MOV RO,-(SP) 
MOV R4,R1 ;COPY BYTE COUNT TO Connect 
CALL CHKSUM SREGISTER FOR CHKSUM AN 
[FORM CHECKSUM 
;HERE RO ==> XMITTED CHKSUM, R1=CHKSUM CALC'D 
CMPB (RO) +,R1 sLOWER ORDER CHECK 
BNE 2s WRONG 
SWAB R1 ;O0K-PREP FOR 
CMPB (RO)+,R1 sHIGH ORDER CHECK 
BNE 2s 7 WRON 
CLC s0K-CLEAR SAILING 
BR 3$ EXIT 
2$: SEC ;LET ERROR BE KNOWN 
3$: POP RO 


MOV (SP)+,RO 


POP R1 
MOV (SP)+,R1 


RETURN ;RETURN 
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DOBRK / MODULE TO INIT Wee AND TEST INTERRUPTS SEQ 0075 It 

2851 .SBTTL DOBRK / MODULE TO INIT TUS8 AND TEST INTERRUPTS 

85 Hh ad 

854 + DOBRK = SEND, RADIAL SERIAL “BREAK TO DEVICE: 

2855 : - SET "BREAK ON INTERFACE. 

2856 ; - SEND 8. NULLS 

2857 : - CLEAR "BREAK'' ON INTERFACE 

2858 : = SET VECTORS FOR RCV AND XMIT 

2859 : - SEND 2 BYTES OF “INIT 

2860 : - RECEIVE “CONTI 

2861 : - IF RECEIVE GARBAGE OR TIMEOUT - ERROR 

2 ; - CLEAR INTERRUPTS AND VECT 

286 : INPUTS: @R5 BITI4 WAS SET = (SEND 

2864 : OUTPUTS: @R5 BIT14 CLEAR IF SUCCESSFUL INIT. 

2865 : SYSTAT#+1 = RECEIV 

2866 : ERRORS R4 = ERROR Pope. 

2867 : = NOT READY TIMEOUT (TOSNDB) 

2868 : - SPONSE 

2869 : - DLV ERROR 

2870 : - CAN'T INIT 

$B72 aa 

2873 013654 105037 014407 DOBRK:: CLRB —sINITWD+1 ZCLEAR BYTE RECEIVE ADDR 

2874 013660 005037 014410 CLR BRKTO [CLEAR TIME OUT CONSTANT 

2875 013664 052775 000001 000026 BIS #B1TO, @XMSR(RS) :SET "BREAK' 

2876 013672 012765 000001 000100 MOV #RSSNIT,CMDSNT(R5) SAY WE SENT "INIT* 

2877 013700 052715 000020 BIS wire waks [PAK SENT TYPE =COMMAND, SORT OF 

2878 013704 012704 000010 MOV #8. R4 *BREAK-I1T'S=BACK COUNT=8 

2879 013710 1$: BREAK [SUPERVISOR TAKE FIVE 
013710 104422 TRAP — C$BRK 

2880 :FOR *C CHECK, ETC. 

2881 013712 105775 000026 TSTB  @XMSR(RS) SREADY? 

2882 013716 100410 BMI g YES 

2883 013720 005337 014410 DEC BRKTO [NO,TIME OUT? 

2884 013724 001371 BNE 1 : 

2885 013726 012704 000056 MOV #TOSNDB,R4 TYES, SET ERROR CODE 

2886 013732 004737 012500 CALL 0G [LOG IT 

2887 013736 000535 BR § 7E 

2888 013740 113775 014404 000030 4$: MOVB —BRKWD,@XMDB(R5) ;SEND NU 

2889 013746 005037 014410 CLR BRKTO RESET MIRE OUT 
013752 005304 DEC R4 MORE NULLS TO SEND? 

2891 013754 001355 BNE 1$ YES 

2892 013756 005375 000026 DEC @XMSR(R5) ZNO, CLEAR 'BREAK* 

2893 013762 017500 000024 MOV @RCDB(R5),RO  :HEAVE ‘GARBAGE’ 1ST BYTE 
013766 SETPRI #PRIOO *SET TO INTERRUPT FO SURE 
013766 012700 000000 MOV #PRIO0,.RO 
013772 104441 TRAP _— C$SPRI 

2895 013774 SETVEC TUVECT(RS),#RCVINT,APRIO7 ;SET VECTO INFO 
013774 012746 000340 MOV #PRIO7,-(SP) 
014000 012746 014314 MOV #RCVINT,-(SP) 
014004 016546 000204 MOV TUVECT (RS) ,-(SP) 
014010 012746 000003 MOV #3,-(SP) 
014014 10443 TRAP CSSVEC 
014016 062706 000010 ADD #10,SP 

2896 014022 062765 000004 000204 ADD #4,TUVECT(RS) | ;AND INC TO SND VECTOR 

2897 014030 SETVEC TUVECT(RS) ,ASNDINT,#PRIO7;AND SET IT 
014030 012746 000340 MOV #PR107,-(SP) 





GLOBAL AREAS 
DOBRK / MODUL 


$3 


See 383S553 
oo SCOOoOCOoO SCOOoCSoOSoSSo COOCOOOoOOOOOOCOoOO 
= 22 293923294224 Sees BSS 


a ne 


VVVYVYVyByyyy 


Nm 
NO OONAUSWN—oO 


VVBy y 
Muay S 
oo 
—_ —2 
REE SES 
RNS SS SH RASSYS RESMRRSE SNSSVSEF 


29335 014232 
2934 014240 
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TO INIT TUS8 AND TEST INTERRUPTS 
012746 014300 

01654 204 

01 38 000003 

10443 

965708 000010 

162765 000004 000204 SUB 
005037 014410 CLR 
012704 014 % MOV 
010437 01441 MOV 
052775 000100 000026 BIS 
004737 014350 CALi 
005715 TST 
100446 BMI 
005037 014410 CLR 
012704 014406 MOV 
010437 014412 MOV 
052775 000100 000026 BIS 
004737 014350 CALL 
005715 TST 
100431 BM! 
012704 014407 MOV 
010437 014412 MOV 
052775 000100 000022 BIS 
004737 014350 CALL 
005715 TST 
100416 BMI 
123727 014407 000020 CMPB 
001003 BNE 
042715 040000 BIC 
000407 BR 
113737 014407 003305 2$: MOVB 
012704 000032 MOV 
004737 012500 CALL 
042775 000100 000026 3$: BIC 
042775 000100 000022 BIC 

CLRVEC 

016500 000204 

104436 

062765 000004 000204 ADD 

CLRVEC 

016500 000204 

104436 

162765 000004 000204 SUB 
000207 RETURN 





a! 
SEQ 0076 Cl 

MOV #SNDINT,=(SP) 
MOV TUVECT(RS) .~(SP) 
MOV #3,-(SP) 
TRAP  CS$SVEC 
ADD #10,SP 

#4,TUVECT(RS) ;RESET VECTOR ADD?. 

BRKTO SRESET TIME OUT 

MINITWD,R4 USE ADDR. FOR SNDBYT 

R4,BRKPTR AND FOR ‘WAIT 

#BIT6,a@XMSR(RS) :ENABLE INTER. 

WAIT SAND ENTER LOOP 

ars SABORTED FROM TIME OUT? 

3$ SYES-EXIT 

BRKTO ;RESET TIME OUT 

#INITWD RG :SEND SECOND INIT 

R4 .BRKPTR [SAVE POINTER AGAIN 

#BIT6,aXMSR(R5) :AND THEN ENABLE INT 

WAIT SAND WAIT 

ars ‘IF ABORTED 

3$ S THEN EXIT 

MINITWD+1,R4  :WHERE RESPONSE WILL GO (ADDRESS) 

R4 ,BRKPTR SAND FOR ‘WAIT’ 

WBIT6,@RCSR(RS) :ENABLE RECIEVE INT. 

WAIT :GET ANSWER 

ars S ABORTED? 

3$ YES. 


INITWD+1,#RSCONT ;NO, IS IT "CONTINUE? 
2s ; NOPE-ERROR 


#B1T14,aR5 ZSUCCESSFUL, CLEAR DOBREAK FLAG 

3$ EXIT 

INITWD+1,SYSTAT#+1 :SAVE BUM RESPONSE 

WCNINIT,RS [CAN'T INIT CODE 

LOG :L0G IT 

S SCHEDULER WILL TRY AGAIN IF NOT ABORTED 

#B1T6,@XMSR(R5) :CLEAR INTERRUPTS 

#B1T6,ARCSR(RS) ; FOR RECIEVE 

TUVECT (RS) SRELEASE RECIEVE VECT. 

: MOV TUVECT(RS) .RO 

TRAP CSCVEC 

#4, TUVECT(RS) | ;AND GET SEND ADDR. 

TUVECT (RS) SAND RELEASE IT 
MOV TUVECT(RS) RO 
TRAP  CSCVEC 


#4,TUVECT(RS)  ;RESTORE POINTER 
;RETURN 


GLOBAL AREAS 
INTERRUPT SERVICE 


BE BS 


—} > ss _~— 


ERB PEER RSE RY SBBZ 
Sea Wu 
COSCO COOSCOS oO 
ee ee ed ed etd wd ow) od = —_— 
RRRRRRREPE RR 
ae 
BOORNMORSNE FRR 


EESEEEAA 


wi 
oS 
= 
* 
tal 
wi 
o 


VVVVVBYBy y 
BYSSsasaNs 3 Sea 
SNSERR SEEN 


ooooeo SCOCOCooCoooooeoSo 


3 


042775 
112475 


000100 000026 


000030 


014412 


014410 


000050 
012500 


000022 
000074 


- SBTTL 
BGNSRV 


SNDHND : 
ENDSRV 


BGNSRV 


RCVHND : 


10$: 
ENDSRV 


WAIT: 


1S: 


BRKWD: . 
INI TWD: 


BRKTO: 
BRKPTR: 


MACRO M1113 25-SEP-81 10:06 PAGE 84 
ROUTINES AND TIMER 


INTERRUPT SERVICE ROUTINES AND TIMER 


SNDINT 


BIC 
MOVB 


RCVINT 


#B1T6,AXMSR(R 
(R4) +, @XMDB(R 


#B1T6,aRCSR 
SACD tS? oot ( 


J 
_ 
< 
w 
~ 
2 

=~ 
zz 
& 

+ 


DLV(R5S) 


R4 ,BRKPTR 
1$ 


BRKTO 

WAIT 
#TORCVB,R4 
LOG 


SINIT 


ooowo 


5) DI I 
5);0uTPUT BYTE 


5) 


:""SEND'’ INTERRUPT SERVICE: 
SNDINT 


SABLE INTERRUPT 


L10004: 
RTI 


7"RCV’’ INTERRUPT SERVICE: 
RCVINT:: 


sDISABLE INTS 
2 SAVE WORD 

BYTE TO BUFFER 

zERROR? 


7YES 
zNO CLEAR ERROR 


10005: 

RTI 
sWAIT LOOP FOR 
INTERRUPT SERVICING 
oT ee NO INTERRUPT 
SUPERVISOR BREAK 

TRAP 
sKILL SOME TIME 

TRAP 
TIME OUT? 
3NO...CONT. 
YES LOAD ERROR # 
;LOG IT 
RETURN 


INIT COMMAND 
:RSCONT 1S EXPECTED HERE 
[POINTER TO INITWD 


CSBRK 
C$BRK 


SE” | 





- 


2985 


Sscscsccs S § sz3z22833zee 


Sooooooo essssssc 
* 


a ek ek a a ss ss ws 3s SS Ht 3 Hh tt SH tt at 
se 


WONOULWN Oo 
PAD AA AAA AAI 


2223435554354 
SOooooooooooooooo 


SSSSSSSSSS 


S 
3 


NIN) ot ot st I | 
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COMPAR/DATA COMPARISON MODULE 


3 essesessss 
NSN NNN 


2 
Su 


—Ooooo oOo 
—24—4 = 


R 


014572 


177400 


000072 
014572 


014572 


002074 
177770 


014572 
0145 43 


000006 
000100 


002074 


-SBTTL COMPAR/DATA COMPARISON MODULE 


TO PATTEN(RS) . AVE NUMBER OF BYTES NOT CORR ECT. 
SOFT ERROR AND TOTAL # WRONG BYTES. 


INPUTS: = TCMPDAT zeny be TO NOT Moree 
OUTPUTS: BIT6 ars (BAD DATA FLAG) ADJUSTED. 
LS$L IT NUMBER 
PRNSIZ ~- SIZE OF PACKET 


COMPAR:: PUSH RO 
RO,-¢ 


PUSH = RG :TO PATTERN WRITTEN 
MOV R4,-(SP) 
PUSH 1 ZUSING BYTE COUNT IN PACKET 
MOV R1,-(SP) 
CLR BDBYTS ZCLEAR TOTAL WRONG 
MOV PKPTR(RS),R4 § :GET TOP OF PACKET 
TST CMPDAT *COMPARE SELECTED? 
BEQ 4$ *NO-EXI 
INC R4 :YES, LOCATE COUNT 
MOVB aR4_R1 2GET IT 
BIC #177400,R1 7 S1GN-UNEXTEND 
:MUST TEST BYTE-WISE... 
INC R4 >FIRST DATA BYT 
1$: CHP PATTEN(RS) ,(RG)+” a SDATA-WHAT WAS EXPECTED? 
INC BDBYTS ‘NO, INCREMENT TOTAL WRONG 
2s: DEC R1 sMORE LEFT? 
BNE 1$ :Y 
TST BDBYTS ‘ANY WRONG? 
BEQ 4s. 3NO 
MOV LSLUN “GET UNIT NUMBE 
Ic anes 70,L$LUN  :MASK IT 


B 
ERRSOF T 0. .MSBDA, ERRDES 


PRINTB #DESC,BDBYTS 


BIS #81T6,aR5 


: COMPAR - IF ‘COMPARE wat SELECTED, COMPARE ; DATA BYTE tf not 


: 


INT 
IN_PACKET’’ BIT (BIT6 aR5) A Rag LEVEL HODULES. 


tage we P 35 DATA PACKET 


OF F 
zYES-PRINT *BAD DATA IN PACKET’ — 


SLET "EM KNOW UPSTAIRS=BAD DATA FLAG 


CSERSOFT 


ERRDES 


BDBYTS,-(SP) 
#DESC =(SP) 
#2,-(SP 


SEQ 0078 












AREAS 


3022 014550 
3023 014556 
3024 014562 
014562 
3025 014564 
014564 
3026 014566 
014566 
3027 
3028 014570 
3029 


sort 014572 
S08. 1 014574 


MACRO M1113 F cialis 10:06 PAGE 86-1 


GLOBAL 
COMPAR/DATA COMPARISON MODUL 


sSIZE_IS ONE DATA PACK 
AND _PRINT THE PACKET 


MOV (SP)+,R1 
MOV (SP)+,R4 


MOV (SP)+,RO 


012737 000204 003334 MOV #132. ,PRNSIZ 
004737 014630 CALL PRNPAK 
4$: POP R 

012601 

POP RG 
012604 

POP RO 
012600 
000207 RETURN 
000000 BDBYTS: .WORD 

045 101 124 DESC: eASCIZ /%ZATOTAL BAD BYTES= 2%D3%A.2N/ 








SEQ 0079 


Al 
TE 


GLOBAL AREAS MACRO M1113 5 a 10:06 PAGE 88 


PRNPAK/MODULE TO PRINT DATA PACK SEQ 0080 
3035 .SBTTL PRNPAK/MODULE TO PRINT DATA PACKET 
3039 ++ 
38 > PRNPAK = IF PRINT_DATA_PACK_ON_ERROR SELECTED: PRINT EACH BYTE OF PACKET 
39 : TO BY PKPTR(RS). 
3040 : INPUTS: PRNSIZ = # OF BYTES IN PACKET. 
1 + OUTPUTS: NONE 
3925 es 
3044 014630 000240 PRNPAK:: NOP :PRINTS 1 PACKET 
3045 *PKPTR(RS)=>TOP OF PACKET 
3046 :PANSIZ (PASSED)=BYTE COUNT 
3047 014632 PUSH RO 
014632 010046 MOV RO,-(SP) 
3048 014634 PUSH = RG 
014634 010446 MOV R4,-(SP) 
3049 014636 105737 002212 TSTB — PRBUF :PRINT PACKET SELECTED? 
3050 014642 001451 BEQ 4$ 7NO 
3051 014644 016504 000104 MOV PKPTR(R5),R4 § :YES=GET TOP OF PACK 
3052 014650 012737 000020 014774 18: MOV #16. ,.LNCNT 716 BYTES PER LINE 
3053 014656 112437 014776 2s: MOVB _ (R4)+, PRDAT ‘AVOID SIGN EXTEND 
3054 014662 PRINTF #PRFORM,<B,PRDAT> ;PRINT BYTE 
014662 005046 CLR -(SP) 
014664 153716 014776 BISB = PRDAT, (SP) 
014670 012746 015000 MOV #PRFORM, -(SP) 
014674 012746 000002 MOV #2,-(SP5 
014700 010600 MOV SP.RO 
014702 104417 TRAP  CSPNTF 
014704 062706 000006 ADD #6,SP 
3055 014710 005337 003334 DEC PRNSIZ ZONE LESS 
3056 014714 001414 BEQ 3$ *NO MORE 
3057 014716 005337 014774 DEC LNCNT *NEW LINE? 
3058 014722 001355 BNE “NOT YET 
3059 014724 PRINTF #CARLF YES 
014724 012746 015010 MOV #CARLF ,-(SP) 
014730 012746 000001 MOV #1,-(SP) 
014734 010600 MOV SP. 
014736 104417 TRAP _— CSPNTF 
014740 062706 000004 ADD #4,SP 
3060 014744 000741 BR 1$ zNEXT LINE 
3061 014746 3$: PRINTF #CARLF sFINISH UP 
014746 012746 015010 MOV #CARLF ,-(SP) 
014752 012746 000001 MOV #1,-(SP) 
014756 010600 MOV re 
014760 104417 TRAP  CSPNTF 
014762 062706 000004 ADD #4,SP 
3062 014766 4$: PoP R4 
014766 012604 MOV (SP)+,R4 
3063 014770 POP RO 
014770 012600 MOV (SP)+,RO 


3064 014772 000207 RETURN zRETURN 










GLOBAL AREAS MACRO_M1113 25-SEP-81 10:06 PAGE 88-1 
PRNPAK/MODULE TO PRINT DATA PACKET SEQ 0081 


3066 014774 000000 LNCNT: .WORD 
7 014776 000000 PRDAT: .WORD 
015000 045 117 063 PRFORM: .ASCIZ /%03%A / 


9 ~EVEN 
3070 015010 045 116 000 CARLF: .ASCIZ /2N/ 
71 -EVEN 


3072 
3073 015014 ENDMOD 
3074 


MISCELLANEOUS SECTIONS 
PRNPAK/MODULE TO PRINT DATA PACKET 


3087 


NMNMNNN-— 
Fwn—O0On 


WN 
—= 
~ 
wi 


3127 015020 
015020 
3128 015022 
015022 
3129 015024 
015024 


3130 015026 
015026 


= 
oS 
w 
So 


BEES 


a 
™m 


oooo 
-——— 
w 


50 


3136 


SNNSRRSSE 


om 


ooooc“ecessooocooS 
hor 


Ww Ww 
—_—s =A 
yw Y 

N 
—— 
So 


010046 


010146 


010246 


010346 


010446 


010546 
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003346 015442 
015444 
000001 


000004 


015720 
000001 


000004 


000332 


7 
.$B 


SEQ 0082 


ITLE MISCELLANEOUS SECTIONS 
TTL REPORT CODING SECTION 


j++ 
THE REPORT CODING SECTION CONTAINS THE 
; "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 


1$: 


BGNRPT 
LSRPT:: 

PUSH RO 

MOV RO,-(SP) 
PUSH R1 

MOV R1,-(SP) 
PUSH R2 

MOV R2,-(SP) 
PUSH R3 

MOV R3,-(SP) 
PUSH R4 

MOV R4,-(SP) 
PUSH R5 

MOV R5,~(SP) 
BREAK 

TRAP CSBRK 

MOV STE RPTR 3;GET 1ST DEVICE BLOCK 
PRINTS #STATHD HEADER 


MOV #STATHD ,-(SP) 


MOV #1,-(SP5 

MOV SP.RO 

TRAP _ CS$PNTS 

ADD #4,SP 
BREAK :*C CHECK 

TRAP  C$BRK 
PRINTS #STHD2 :2ND HEADER 

MOV #STHD2,-(SP) 

MOV #1,-(SP) 

MOV SP,RO 

TRAP CSPNTS 

ADD #4,SP 
BREAK :*C CHECK 

TRAP  C$BRK 


MOV @RPTR,RS GET DEVICE BLOCK 


Lal 
TE 


7 


MISCELLANEOUS SECTIONS MACRO M1113 25-SEP-81 10:06 PAGE 89-1 
REPORT CODING SECTION SEQ 0083 
139 015110 032715 004000 BIT #B1T11,aR5 ;UNIT NOT TESTED? 
140 015114 001131 BNE 2$ z TRUE DON'T PRINT STATISTICS 
14¢ 015116 011537 015469 MOV ars RLUN SSAVE STATUS WORD 
14 015122 042737 177770 915440 BIC #177770,RLUN = MASK UNIT NUM. 
144 015130 116501 9001 2 MOVB  SOFTR(R5),R1  :SOFTREAD 
145 015134 042701 1774 BIC #177400,R1 + SIGN-UNEXTEND 
3146 015140 116502 900124 MOVB  SOFTW(R5),R2 :SOFT WRITE 
3147 015144 042708 1776 BIC #17 r] : 
3148 015150 11650 136 HARDR(R5),.R3 SHARD READ 
149 015154 042703 177400 BIC #177400,R3 : 
3130 015160 116504 140 HARDW(R5).R4 § SHARD WRITE 
151 015164 042704 177400 BIC #177400,R4 : 
3152 015170 PRINTS #FMO,RLUN ;SUMMARY/UNIT # 
015170 013746 015449 MOV RLUN,=(SP) 
015174 012746 015556 MOV #FMO,-(SP) 
015200 012746 000002 MOV #2,-(SP) 
015204 01 MOV SP. 
015206 104416 TRAP  CS$PNTS 
015210 062706 000006 ADD #6,SP 
3153 015214 PRINTS #FM,#0,WRTNO(RS) ,RDNO(RS) ,<B,BDATA(RS)>,R1,R2,R3,R4 
015214 010446 MOV R4,-(SP) 
015216 010346 MOV R3,-(SP) 
015220 010246 MOV R2,-(5?) 
015222 010146 MOV R1,-<SP) 
015224 005046 CLR -(§P) 
015226 156516 000134 BISB BDATACRS), (SP) 
015232 016546 0001174 MOV RDNO(RS) ,=(SP) 
015236 016546 000110 MOV WRTNO(RSS ,-(SP) 
015242 012746 000000 MOV #0,-(SP 
015246 012746 015574 MOV #FA,-(SP) 
015252 012746 000011 MOV #11.-(SP) 
015256 010600 MOV SP,RO 
015260 104416 TRAP  CSPNTS 
015262 062706 000024 ADD #24,SP 
3154 015266 116501 000123 MOVB  SOFTR+1(R5),R1 ;SAME 
3155 015272 042701 1774 BIC #177400,R1 ‘AS 
3156 015276 116502 00012 MOVB  SOFTW+1(R5),R2 :ABOVE 
3157 015302 042702 177400 BIC #177400, THIS 
3158 015306 116503 000137 MOVB  HARDR+1(R5),R3_: 
3159 015312 042703 177400 BIC #177400,R3 [FOR 
3160 015316 116504 000141 MOVB HARDW+1(R5).R4 :DRIVE 
3161 015522 042704 177400 BIC #177400,R4 ZONE 
3163 015326 PRINTS #FM,#1,WRTN1(R5) ,RDN1 (RS) ,<B,BDATA+1(R5)>,R1,R2,R3,R4 
015326 010446 MOV R4,-(SP) 
015330 010346 MOV R3,-(SP> 
015332 010246 MOV R2.-(SP) 
015334 010146 MOV R1.-(SP) 
015336 005046 CLR -(§P) 
015340 156516 000135 BISB §BDATA+1(RS), (SP) 
015344 016546 000116 MOV RDN1 (RS) ,=(5 
015350 016546 000112 MOV WRTN1 (R55 ,=(SP) 
015354 012746 000001 MOV #1,-(SP) 
015360 012746 015574 MOV #FA,-(SP) 
015364 012746 000011 MOV #11,-(SP) 
015370 010600 MOV SP,RO 


7 


MISCELLANEOUS SECTIONS MACRO M1113 25-SEP-81 10:06 PAGE 89-2 
REPORT CODING SECTION SEQ 0084 
015372 104416 TRAP  CSPNTS 
015374 06 706 000024 ADD #24,SP 
164 015400 02 727 015442 003364 28: CMP RPTR,ALSTDEV ALL UNITS DONE? 
165 015406 1 903 BHIS 3$ YES 
166 015410 062737 000002 015442 ADD #2,RPTR *NO=DO 
168 015416 000137 015102 JMP 1$ :MORE UNITS 
3170 015422 3S: POP RS 
015422 012605 MOV (SP)+,R5 
3171 015424 POP RG 
015424 012604 MOV (SP)+,R4 
3172 015426 POP R3 
015426 012603 MOV (SP)+,R3 
3173 015430 POP R2 
015430 012602 MOV (SP)+,R2 
3174 015432 POP R1 
015432 012601 MOV (SP)+,R1 
3175 015434 POP RO 
015434 012600 MOV (SP)+,RO 
3176 015436 ENDRPT 
015436 L10006: 
015436 104425 TRAP — C$RPT 
015440 000000 RLUN: .WORD 
015442 000000 RPTR:  .WORD . 
015444 045 116 045 STATHD: .ASCII /%N%A DR BLKS WR BLKS RD BDPAK / 
015512 104 103 110 -ASCIZ @DCHK/RD DCHK/WR DCHK/RD DCHK/WRINa@ 
015556 045 101 125 FMO: -ASCIZ /%AUNIT %D12N/ 


WWWIWNWNANI AAA 
oO 
CLSSSVSESRLAVLS say 


015574 045 101 040 FM: ASCII /%A MD1%A 2DS%A.  ADSZA.  2D3XA. = / 
015650 045 104 063 -ASCIZ /2D3%A. %D3%A. ZD3%A. XD3%A.2N/ 
015720 045 101 040 STHD2: “ASCII /%A 

015765 122 105 103 “ASCIZ /RECOV RECOV UNRECOV UNRECOV%N/ 

016030 ENDMOD 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


195 
196 
197 
3198 
1 
32 
330 
$202 016030 
016030 
016030 000240 
05 016032 105037 
06 016036 005037 
3207 016042 
016042 012700 
016046 104447 
3208 016050 
016050 10300 
3209 016052 00523 
3210 016056 012737 
3211 016064 005004 
3212 016066 017705 
3213 016072 010415 
3214 016074 052715 
3215 016100 052715 
3216 016104 006304 
3217 016106 016465 
3218 016114 006204 
3219 016116 023727 
3220 016124 103005 
3221 016126 062737 
3222 016134 005204 
3223 016136 000753 
3225 016140 022737 
3226 016146 103005 
3227 016150 
016150 104454 
016152 000145 
016154 016530 
016156 
3228 016160 
016160 104444 
3229 
3230 016162 012737 
3231 016170 005004 
3232 016172 017705 
3233 016176 010437 
3234 016202 
016202 010400 
016204 104442 
016206 010002 
3235 01621 
016210 103111 
3236 016212 042715 
237 016216 012203 
38 016220 012265 


MACRO M1113 25-SEP-81 10:06 PAGE 91 


016612 
003340 


000040 


016612 
005548 
165216 
100000 
004000 


026152 
003310 
000002 


000010 


003346 


165112 
002074 


004000 
000204 


003310 


000102 
003364 
003310 


002012 


003310 


~SBTTL INITIALIZE SECTION 


p++ 
3; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


INIT: 


INIT2: 
1$: 


CHECK: 


GETHRD: 
1$: 


BGNINIT 
LSINIT:: 
CLRB = STRT [FOR STATS CLEAR 
CLR TESTS ieeeee CLR TST 8 FLAG 
READEF M#EF.START sSTART COMMAND? aan 
TRAP 
BNCOMPLETE INIT2 NO al 
INC STRT :YES, SET START FLAG 
MOV WBLKTBL,DEVPTR :SET ALL UNITS ABORTED: 
CLR [UNIT NUMBER 
MOV @DEVPTR,RS ‘GET POINTER 
MOV . S INSERT UNIT # 
BIS #81T15,aR5 -SET ABORTED 
BIS #B81T11.aR5 :SET UNIT NOT TESTED 
ASL RG “#2 FOR LOOK 
MOV BUF TBL(R4) ,RCVBUF(RS) ;SETUP POINTER TO UNIT'S BUFFER 
ASR R4 sCORRECT BACK TO UNIT # 
CHP DEVPTR -ALSTDEV [LAST DEVICE DONE? 
ADD #2,DEVPTR :NO-GET 
INC RG “NEXT DEVICE AND 
BR SERVICE 
CMP #8. ,LSUNIT ZMAKE SURE NOT 
BHIS  GETHAD *TOO MANY UNITS 
ERRSF  101.,TOMANY sTOMANY-REQUEST “C 
TRAP 
WORD 
“WORD 
WORD 
DOCLN ZEXIT 
TRAP 
MOV WBLKTBL,DEVPTR ;INIT TABLE POINTER 
CLR [CLEAR DEVICE COUNTER 
MOV @DEVPTR.RS “GET STATUS 
MOV R4,LSLUN ‘UNIT NUM, IN CASE ERROR 
GPHARD R4.R2 *GET HARD INFO 
MOV 
TRAP 
MOV 
BNCOMPLETE 3$ Re 
Bic ap1Ti1 ars ZUNIT IS TESTED! 
MOV (R2)+,TUVECT(R5) :GET VECTOR ADDRESS 


; AT THE BEGINNING OF EACH PASS. 


SEQ 0085 


#EF .START,RO 
CSREFG 


INIT2 


CSERSF 
101 
a 


CSDCLN 


R4 RO 
CS$GPHRD 
RO,R2 
3s 


MISCELLANEOUS 
INITIALI E 


~_ 
mm 
w 
oO 


Sg 


& 
fo leolealolaleololololo) 


016264 


pisiseicnite 
oOo 


3258 016320 
322 


00 
3273 016404 


oes 
RS 


Sooooceo SOoOoooocKeo 


Sot adobe cee nd ed at ad ed kt ot z 


SsaNo 
FFF 
Ee RS 


RAN 


N NSOSSYONOOS 
& BRASS 
a 3333. FF 
SSFSSEN SEN 


SN 
SS 


“an 
— rn 
o 
~ 
im 
$ 
(77) 


SS&SESLSS= 


So 
—_ 
Oo 
we 
oO 
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000061 
016614 
04000 

000400 
001000 


016612 


000202 
000110 


000110 


000060 
000060 


13$: 


2$: 


14$: 


4$: 


003310 3$: 


5$: 
003306 SETLEN: 


R 
RFLAGS 


CLR 
MOV 
ASR 


PAGE 91-1 


(R2)+,DR+1(R5) 
(R2)+,PDTFLG 
T14,ar5 
#B1T8,DR(RS) 
#B1T9,DR(RS) 


102. ,NODRVS 


STRT 
14$ 


#BLKEND ,R2 
#URTNO, RI 
#WRTNO,R2 
(R1)+ 

R2 
#B1T15,aR5 
R3.RCSR(RS) 
R3.RCDB(RS) 
#2.R 

RS. XHSR(R5) 
PDTFLG 

4 


ON 
#2,DEVPTR 
R4,LSUNIT 
1$ 


SYSTAT 
FLGLOC 


BLKER 
LENGTH, TAPLEN 
TAPLEN 


:YES 
sDRIVE 1? 


NEITHER?! 


sEXIT 


START COMMAND? 


sFORM # 
sCLEAR °EM 
MORE? 


*";SET NOT ABORTED 
:GET DEVICE REGISTERS: 


UNIT A PDT? 


YES. ..RCDB=XMDB 
ZERO DATA PATTERN 
“NO RETRIES 


zNO RECORD 
= SUCCESS 


zNO DLV ERROR 
zxeeee CLR MRSP INDICATOR 
30K TO gy I 


3NO_ERROR 
2GET 
GE 


save UNIT yor 


TO WORD BOUN 
3AND GET PDT FLAG 
2SET SEND BREAK FLAG 
sDRIVE 0? 


3 x v 
; INCREMENT UNIT NUMBER 
MOR TS? 
sYES, GP HARD THE NEXT 


SYSTEM STATUS WORD 
:GET USER FLAGS 


# OF RECORDS 
T # BLOCKS PER TRACK 


TRAP 
MOV 


CSERSF 
102 
a 


CSDCLN 


CSRFLA 
RO. FLGLOC 


SEQ 0086 


Lal 
TE 
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MISCELLANEOUS SECTIONS MACRO M1113 25-SEP-81 10:06 PAGE 91-2 MI 
INITIALIZE SECTION SEQ 0087 TE 
89 016502 012737 000200 003332 MOV #200, SECREC :PRESET SECOND START AT 200 
90 918298 9337 7 §50300 Miata CMP #o00 secre C ‘# BLKS > 128.? 
1 016516 101003 I 3$ SNO=SWITCH TRACKS 2ND PASS 
3298 016520 012737 000400 003332 MOV #400, SECREC SYES=START AT 400 
3314 
3315 016526 38: ENDINIT 
016526 L10007: 
016526 104411 TRAP  CSINIT 
3318 
a3/8 016530 124 117 117 TOMANY: wane /TOO MANY UNITS MAX.=8 / 
$355 016560 123 105 114 NODRVS: “ASCIZ /SELECT AT LEAST 1 DRIVE / 
3322 016612 000000 STRT:: .WORD 
3323 016614 000000 PDTFLG:: .WORD :TUS8 IS IN PDT 
3324 016616 000000 FLGLOC::.WORD ;USER FLAGS 


MISCELLANEOUS S$ 


INITIALIZE SECTION 


327 
328 
329 
3330 
3331 
3332 016620 
016620 
3333 016620 
3334 016622 
016622 
3 ebe8 
016632 
016636 
016642 
016644 
3335 016650 
3336 016656 
3337 016662 
3338 016666 
3339 016670 
3340 016674 
3341 016676 
eure 016704 
3343 016706 


—s 


¥ 
& 
oooo 
224 
AAA 
NAS 


oa 
S338 
La Semel 


6760 
6 


frorororge 


ANNE NSS 
Gouge = 
Ww 


g 


kK 7 
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SEQ 0088 
te ad 
: THE AUTO DROP CODE IS INVOKED WHEN THE ADR FLAG IS SET AND CHECKS FOR 
+ A VALID INTERFACE LOCATION. DROPS UNIT IF INTERFACE IS NOT THERE. 
BGNALTO 
LSAUTO:: 
NOP sAUTO DROP ROUTINE 
SETVEC #4, ATRPHND,#PRIO7 :GET BUS TRAP VEC. 
000340 MOV #PRIO7,=(SP) 
016730 MOV #TRPHND , = (SP) 
000004 MOV #4,-(SP) 
000003 MOV #3,-(SP) 
TRAP (C$SVEC 
000010 ADD #10, 
003346 016726 MOV WBLKTBL,TRPPTR ;GET TOP OF DATA BLOCK TABLE 
000044 1$: MOV aTRPPTR.R *GET DATA BLOCK 
104000 BIT #B1T15!B1T11,aR5 yor TESTED OR ABORTED? 
000022 TST @RCSR(RS) *NO-VALID ADDRESS? 
NOP “YES... (TRAP IF NOT) 
016726 003364 2S: CAP TRPPTR,WLSTDEV ;MORE TO TRY? 
000002 016726 ADD #2, TRPPTR [ON TO NEXT 
BR 1 'GET IT 
3$: CLRVEC #4 SRESTORE 
000004 MOV #4,RO 
TRAP C$CVEC 
ENDAUTO 
L10010: 
TRAP  CSAUTO 
TRPPTR: .WORD 
ZILLEGAL ADDRESS TRAP HANDLER: 
TRPHND: PRINTF #MSAUTO :SAY "AUTO DROPPED"’ 
016762 MOV #MSAUTO, -(SP) 
000001 MOV #1,-(SP) 
MOV SP,RO 
TRAP _ CSPNTF 
000004 ADD #4,SP 
MOV ars RO :GET UNIT # 
177770 BIC #177770,R0 :MASK IT OFF 
pOoDU = RO ‘DROP HIM 
TRAP  C$DODU 


RTI 
101 101 MSAUTO: .ASCIZ /ZAAUTO DROP: %N/ 


MISCELLANEOUS S 


CLEANUP CODING 


363 


365 
366 
367 
3368 
3369 017002 
01700 
3370 017002 
3371 017006 
3372 017010 
eer7 017014 
3374 017016 
017016 
3375 
3382 
3394 
3395 017020 
017020 
017020 


ECTIONS 
SECTION 


005737 
00100: 


005737 
001401 


104424 


104412 
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003336 
002210 


~SBTTL CLEANUP CODING SECTION 


ae 


1$: 


THE CLEANUP CODING SECTI 
;_AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


ON CONTAINS THE CODING THAT IS PERFORMED 


BGNCLN son same: 
pe ALLGON ee erexit FROM ALL“UNITSCABORSED? 
TST STAEOP :NO-STATS AT EOP? 
BEQ 1$ NO 
DORPT 3s YES 

TRAP 
ENDCLN 

110011: 
TRAP 


CSDRPT 


CSCLEAN 


a ee ee - SS ES. 


MISCELLANEOUS SECTIONS 
DROP UNIT SECTION 


3405 017022 
017022 
3406 


3407 017022 
017022 
3408 017024 
017024 
3409 017026 
3410 017032 
3411 017036 
017036 
3412 017040 
017040 
3413 017042 
017042 
017044 
017050 
017054 
017056 
017060 
3414 
3420 
3432 
3433 017064 
017064 
017064 
3434 017066 
3435 017074 
3436 017100 
3437 017102 
38 017104 
39 017112 
40 017114 
3441 017116 
sre6 
3443 017120 
S444 


010046 
010546 
004737 
052715 
012605 


012600 


Her 4 
=e 

Www 
wnw 
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017066 
100000 


017120 
000002 


000006 


003346 
000016 


000002 


101 


- SBTTL 


DROP UNIT SECTION 


p++ 
3 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


017116 GETRS: 
1$: 


017116 


2$: 
PTR: 
104 ABOMSG: 


BGNDU 

PUSH RO 

PUSH R5 

CALL GETRS 

BIS #B1T15,aR5 
R5 

POP RO 

PRINTF #ABOMSG,RO 

ENDDU 


MOV #BLKTBL,PTR 
MO a@PTR,RS 


BM 2s 
ADD #2,PTR 
1$ 


LSDU:: 
;RO=UNIT NUMBER 


;SAVE IT 
MOV RO,-(SP) 


SAVE PRESENT UNIT POINTER 
MOV R5,~(SP) 


GET POINTER TO UNIT 

;SET ABORTED 

RESTORE PRESENT UNIT POINTER 
MOV (SP)+,R5 


;RETRIEVE UNIT NUMBER 
MOV (SP)+,RO 


L10012: 
TRAP 
37~>UNIT 0 
3GET STATUS WORD 
sCORRECT UNIT? 
3NO,-~>NEXT 
: CONTINUE 


eASCIZ /ZADROPPED UNIT 2%D12N/ 
-EVEN 


C$DU 


MISCELLANE 


ADD UNIT SE 


ESET ES, See eer ee 
MEW O0an 


NNN NOU 
ONO 
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-SBTTL ADD UNIT SECTION 


+4 
; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
; TO THE TEST CYCLE. 
7146 BGNAU 
7146 LS$AU:: 
;THE INIT CODE CONTAINS ALL CODE NECESSARY TO ADD A UNIT. 
7146 ENDAU 
7146 L10013: 
7146 104452 TRAP 


C$AU 


SEQ 0091 


| 
| 
a | 


QUmunvivi 


3545 


jeleolelelelelolelelojlolojaj—) 
Sw Ss SS SS SS 
SNS 


So 

—_ 

NII yy] S SS 
2 

~ 


3546 
3547 017214 


Soo SOO OOOO COOCOOOCOoCoOOoOo 
2 24343 SBS SS 
NN 
Ww 


aon 


oO 
—_ 
™m 


Sees 


— 
So 


~~ 4 =O 
o-oo = = 
MMIMnononoeny 


S2883s 


SSS28 
3 3 BO 
MMYNOSNMVINV 


: 


oo 
Ow 
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ELF=DIAGNOSTIC EXECUTION 


-SBTTL TEST 1 / DEVICE SELF-DIAGNOSTIC EXECUTION 


017214 
006 
0056 
006050 
005526 


006002 
006050 


026174 


000012 
000016 
013520 
000002 
000016 
000001 


006556 
000010 


003320 


003324 


000001 
000002 


000070 


000034 
000036 
000032 
















T1s: 
ATST1,TSTTOP § ;SAVE ADDR OF TEST 
SETUP SINIT UNITS TSTPC 
SETDR [GET 1ST DRVS. 
RUN :D0 TES 
SWAPDR [GET NEXT DRVS. 
SETUP SREINIT UNITS TSTPC 
RUN SREPEAT TEST 
; DONE 
TRAP  CSEXIT 
.WORD 1L10014-. 
#TRBUF ,RO FORM COMMAND PACKET 


ARSCMND ,@RO > COMMAND FLAG 
MRSMSIZ,1(RO)  ;SIZE OF MESSAGE 
MRSSSLF,2(RO) SELF TEST OPERATION 
3(RO) MODIFIER 





4(RO) 3NO DRIVE OR SWITCHES 
6(RO) sNO SEQUENCE NUMBER 
8. (RO) z3NO BYTES 
10. (RO) 3NO RECORD # 
#RSMS1Z,R1 GET SIZE 

2 CKSUM 


(R1)+ -+2 FOR CHECK 
#RSSNSZ,SNDCNT(R5) ;:SIZE TO SEND 
UM > FORM 


; SUM 
R17, (RO) SINSERT INTO PACKET 
ARSEND,XSFLG(RS) ;sEXPECT END, 
WRSNDSZ,XSCNT(R5) °; THIS BIG 
#1,XSPKNM (RS) zAND 1 PACKET 





RSVP ;RETURN TO SCHEDULER 
#B1T3,aR5 sRETRY?(BAD FLAG) 
64$ 7 YES 

L10014: 


TRAP CSETST 


SCELLANEOUS SECTIONS MACRO M1113 25-SEP-81 10:06 PAGE 104 
ST 2 / SEEK EOT,BOT SEQ 0093 
3555 .SBTTL TEST 2 / SEEK EOT,BOT 
3228 017352 BGNTST 
B17 32 T2:: 
3558 01735 TSTID #TST2 
017352 012737 017416 003324 MOV #TST2,TSTTOP ;SAVE ADDR OF TEST 
017360 004737 CALL SETUP SINIT UNITS TSTPC 
017364 004737 005630 CALL  SETOR ‘GET 1ST DRVS. 
017370 004737 006050 CALL RUN [DO TEST 
017374 004737 005526 CALL § SWAPDR [GET NEXT DRVS. 
017400 103004 BCC 64$ ‘BR NO 2ND DRVS 
017402 004737 006002 CALL SETUP :REINIT UNITS TSTPC 
017406 004737 006050 CALL = RUN SREPEAT TEST 
01741 64$: ‘DONE 
3559 017412 EXIT TST 
017412 104432 TRAP  CSEXIT 
os 017414 000206 .WORD 110015-, 
3561 
3562 017416 005004 TST2: CLR R4 R4=INDEX INTO RECORD TABLE 
3363 017420 016465 017606 000064 15: MOV RECDAT(R4), reciris sGET THE RECORD 
3565 017426 TUSEEK REC(RS),DR(RS) ;SEEK IT 
017426 012700 026174 64$: MOV #TRBUF ,RO :-=->(POINT TO) XMIT BUFFER 
017432 112710 000002 MOVB = #RSCMND ,@RO [FORM COMMAND MESSAGE PACK 
7436 112760 000012 000001 MOVB  &#RSMSIZ.1(RO)  :THIS BIG 
017444 112760 000005 000002 MOVB  #RSSSEK.2(RO)  :OP CODE IS SEEK 
017452 016560 000064 000012 MOV REC(R5).10.(RO) :TO THIS RECORD 
017460 116560 000060 000004 MOVB  ODR(RS),4.(RO)  :AND WHICH DRIVE 
7466 105060 000003 CLRB = 3 (RO) [NO MODIFIER 
017472 105060 000005 CLRB =-455. (RO) [NO SWITCHES 
017476 005060 000006 CLR 6. (RO) ‘NO SEQUENCE # 
017502 005060 000010 CLR 8. (RO) ‘NO BYTE COUNT 
017506 012701 000012 MOV ARSMSIZ,R1 :GET COUNT 
017512 005721 TST (R1)+ ‘PLUS FLAG + BCNT 
‘FOR CHECKSUM CALC 
017514 004737 013520 CALL CHKSUM ‘RO=->TOP  R1=# OF BYTES 
017520 010110 MOV R1, (RO) i INSERT INTO PACKET 
T Up EXPECTATIONS: 
017522 012765 000016 000070 MOV #RSSNSZ, SNDCNT ( (5) :HOW MANY TO SEND 
017530 112765 000002 000034 MOVB  &#RSCMND.XSFLG(RS) sEXPECT END PACK 
017536 012765 000016 000036 MOV WRSNDSZ.XSCNT(R5) :COUNT WITH THIS 
017544 012765 000001 000032 MOV #1. .XSPKNM(RS) exbeer ONLY 1 PACKET 
017552 004737 006556 CALL = RSVP ; SEND 
AND RETURN TO SCHEDULER 
017556 032715 000010 BIT #B1T3,aR5 RETRY (FLAG BYTE ERROR)? 
017562 001321 BNE 64$ :YES 
3566 
3567 017564 062704 000002 ADD #2,R4 :POINT TO NEXT RECORD 
3568 017570 026427 017606 177777 CMP RECDAT(R4) .#=1. iLAST ONE DONE? 
3569 017576 001310 BNE 1$ LOOP 
570 017600 005237 003320 INC DONE VESUSET DONE FLAG 
3371 017604 000207 RETURN 





wd SEE Lous 
TEST 


ECTIONS 
/ SEEK EOT,BOT 


ma 
oO 


oe 87 
575 01761 0001 
278 gi ele 377 
577 017616 a0 

$258 817650 1777 
579 0176 

017622 
017622 104401 
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RECDAT: 269 


377 
400 


-1, 
ENDTST 


;B0T 
;BOT OTHER TRACK 


EOT 


;B0T 


TRAP 


CSETST 


E 8 
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T / HIGH ACTIVITY WRITE/READ SEQ 0095 TE 
582 .SATTL TEST 3 / HIGH ACTIVITY WRITE/READ 
584 : WRITE THEN READ VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
385 + A RECORD, GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 
3587 017624 BGNTST 
017624 T3:: 
3588 017624 TSTID #TST3 
017624 012737 017670 003324 MOV #TST3,TSTTOP ;SAVE ADDR OF TEST 
017632 004737 002 CALL SETUP SINIT UNITS TSTPC 
017636 004737 005630 CALL = SETOR [GET 1ST DRVS. 
017642 004737 006050 CALL RUN :D0 TEST 
017646 004737 005526 CALL SWAPDR sGET NEXT DRVS. 
017652 103004 BCC 64$ : 2ND DRVS 
017654 004737 002 CALL SETUP SREINIT UNITS TSTPC 
7660 004737 006050 CALL RUN sREPEAT TEST 
017664 64$: ‘DONE 
3589 017664 EXIT TST 
017664 104432 TRAP  C$EXIT 
017666 001340 .WORD 110016-. 
3251 
3592 017670 012765 000100 000066 TST3: MOV #100,TMP(RS) | ;INIT TO HALF OF REMAINING 
3593 017676 005004 CLR RS sFOR INDEX INTO DATA TABLE 
3594 017700 005065 CLR REC (RS) “START AT RECORD 0 
3595 017704 016465 021214 000072 15S: MOV TST3PT(R4),PATTEN(RS) | :GET DATA 
3596 017712 TUWRIT PATTEN(RS) ,REC(RS) ,4512.,DR(RS) 40 
017712 012700 026174 72$: mov #TRBUF -RO :MAKE COMMAND PACKET: 
017716 112710 000002 MOVB = #RSCMND,aRO : FLAG 
017722 112760 000012 000001 MOVB §#RSMSIZ.1(RO)  :THIS SIZE 
017730 112760 000003 000002 MOVB &#RSSWR,2(RO) |: INSERT OP CODE-WRITE 
017736 112760 000003 MOVB «#0, 3. (RO) [VERIFY (1 OR 0) 
017744 116560 000004 MOVB DR(RS) ,4. (RO) sDRIVE # 
017752 112760 000020 000005 MOVE #020,5. (RO) [MAINTENANCE MODE SWITCH 
017760 005060 CLR : [NO SEQUEN 
017764 012760 001000 000010 MOV #512.,8.(RO) | : TOTAL COUNT TO WRITE 
017772 016560 000064 000012 MOV REC(R5).10.(RO) :AT RECORD N 
020000 012701 000012 MOV #RSMS1Z. :THE PACKET SIZE PLUS+2 
020004 005721 TST (R1)+ “(FLAG AND COUNT) INTO R1 
020006 012765 000016 000070 MOV WRSSNSZ,SNDCNT(R5) ;LOAD THE SIZE TO SEND 
020014 004737 013520 CALL 7RO ==> R1=COUNT 
020020 010110 MOV R1, (RO) [PUT CHKSUM IN PACKET 
“SET UP EXPECTATIONS: 
020022 012765 000020 000034 MOV WRSCONT,XSFLG(RS) :THE F 
020030 012765 000001 000036 MOV #1,XSCNT(RS) THE C 
020036 012765 000001 000032 MOV #1-XSPKNM(R5)  :THE # PACKETS EXPECTED 
20044 01 202 001000 MOV #512. ,R2 :GET # OF DATA BYTES 
020050 004737 006556 CALL RSV ZSEND (AND RETURN TO SCHEDULER) 
020054 032715 10 BIT 1T3,aRr5 [FLAG BYTc ERROR? 
20060 001314 BNE 72$ YES 
020062 $3 010900 8IC #B1T12,aR5 sFLAG FOR LAST PACKET 
020066 012700 026174 64$: MOV TRBUF .R [POINT TO TOP OF BUFFER AGAIN 
020072 020227 000200 CMP Re #128. ‘START DATA PACKET(S) 
020076 101004 BHI 65$ #512. > 128.! 
20100 910201 V R2,R1 :#512.<128. 
020102 052715 010000 BIS #B81T12,aR5 *SO LAST PACKET NOW 
20106 000402 66$ [USE REMAINING COUNT 





MISCE reo 


TEST 


/ HIGH A 


88 = 


rorronr 
22 SS 
SSFSFSEFSSNSES FT 


SOOOoCooooooooooo 
Soooooceoo 


020310 


020310 


SE 
At 


0-0 70 
— ad beat --of 


—_ 
33 


00141 


——Oo0o0ooO ooo 
Soesase Sass 
=—M—M— "9 rrr 
wns 
ono 
NONMWSUOUW NM 


OO 3 
GLSSRUGR 
FSESS>AS 


N 
_ 
Ww 


: 


O22 1 I =O 


==30 


Goel Ts 
199200 


000070 
000004 
000002 
013520 
010000 
000002 
000016 
000001 
000020 
000001 
000001 
006556 
000010 


002000 
000200 


026174 


000016 
013520 


000070 


000032 


000001 
000002 
000012 
000004 


000010 
000005 


000070 


aa 


68$: 


69$: 


70$: 


76$: 


77$: 





MI 
TE 
#128, R1 ZUSE 128. BYTES 
1,1(R0) ‘COPY COUNT TO BUFFER 
:R3-COUNTER TO LOAD BUFFER 
#RSDATA, ARO [FLAG FIRST 


SKIP COUNT 
7) ee z INSERT DATA 


sYES 
s<=>TOP AGAIN 


“GET COUNT 
#1776600,R1 :ZERO SIGN EXTEND 

sHOW MANY TO SEND PLUS 
#4,SNDCNT(R5) FLAG, COUNT, CHKSUM 


#2,R1 [COMPENSATE FOR FLAG + COUNT 
CHK SUM [FOR CHECKSUM CALC. 
R1, (RO)+ [CHKSUM INTO PACKET 
3EVEN ON AN ODD 
R1,(RO)+ YTE BOUNDARY 
wBiTi2.ar ars SLAST DATA PACKET? 


NO 
#RSEND XSFLG(R5) sYES-EXPECT "END* 
#RSNDSZ,XSCNT(R5) °:OF THIS SIZE 

1 NSPRKPRS) zAND 1 PACKET 


6 SEND 
ARSCONT ,XSFLG(RSS : (NOT LAST), EXPECT ‘CONTINUE’ 
#1,XSCNT(RS) AND 1 BYTE 

#1 XSPKNACRS) SAND 1 PACKET 


3 SEND PACKET 
RETURN TO SCHEDULER 

#81T3.aR5 :FLAG BYTE RETRY? 

#81T10,aR5 RETRY DATA ERROR? 

#128. ,R2 [NO, MORE DATA TO SEND? 

64$ YES 


71$ 3NO 
REC(RS) ,#512. .DR(RS) RETRY HERE 


#TRBUF RO :FORM CMND PACK: 

#RSCMND , @RO SMESSAGE PACK TYPE 
#RSMSIZ °1(RO) THIS BIG 

#RSSRD,2(RO)  : OP CODE-READ 

REC(RSS 16 (RO) :THIS RECORD 

DR(RS),4.(RO)  :THIS DRIVE 

3(RO) 3PRESET NORM THRESHOLD 

aR} SREDUCED? 

3(RO) TYES-CHANGE THRESHOLD 

#512.,8.(RO)  :# BYTES DESIRED 

#020.5. (RO) ‘MAINTENANCE MODE 

6. (RO) [NO SEQUE NC # 

ARSMSIZ,R1 :S17E OF P ACKET 

(R1)¢ FLAG*+COUNT INTO R1 


#RSSNSZ, snpenTiRs) sSET UP SIZE TO SEND 
CHKSUM zFORM CHECKSUM R1=COUNT 


G 8 
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TEST 3 / HIGH ACTIVITY WRITE/READ SEQ 0097 
020424 010110 MOV R1, (RO) ZINSERT IN PACKET 
020426 012701 001000 MOV #512.,R1 :SET EXPECTATIONS: 
ZCALC # OF DATA PACKETS TO EXPECT 
020432 012703 000034 MOV #XSFLGR3 [OFFSET OF F 
20436 06050 ADD R5,R TABS. ADDR. OF XSFLG 
020440 00500 CLR * PRE 
020442 90520 73$: INC R2 :# PACKETS EXPECTED 
020444 012723 000001 MOV #RSDATA (R3)+ LOAD XSFLG 
020450 012723 000204 MOV 32..(R3)+ ZAND EXPECT COUNT 
020454 162701 000200 SUB W138. NEG RESULT LAST TIME 
20460 101401 BLOS 75$ TLAST TIME! 
020462 000767 BR 73$ ;PORE TO DO 
02 00520 75$: ‘INC R2 D ONE FOR END PACK 
020466 010265 000032 MOV R2,XSPKNM(RS5) < CAVE # PACKETS TO EXPECT 
020472 012723 000002 MOV WRSEND,(R2)+  :EXPECT AN E 
020476 012713 000016 MOV WRSNDSZ,(R3) :THIS BIG-14. BYTES 
020502 004737 006556 CALL RSVP SEND 
TAND RETURN TO SCHEDULER 
3597 020516 TUREAD REC(RS),#512.,DR(R5) ,#0 
020516 012700 026174 82$: MOV ATRBUF ,RO :FORM CMND PACK: 
020522 112710 000002 MOVB = #RSCMND 3MESSAGE PACK TYPE 
020526 112760 000012 000 MOVB  #RSMSIZ.1(RO) 
20534 112760 000002 000002 MOVB  &#RSSRD,2(R SOP CODE IS READ 
020542 016560 000012 MOV REC (RD) 10. {R0) [THIS RECORD 
020550 116560 000060 MOVB (R5) ,4.(R THIS DRIVE 
020556 112760 000000 000003 MOVB oO > 1803 VER 
20564 012760 001000 000010 MOV aio. 8. (RO) TOTAL eytes TO READ 
020572 112760 000020 000005 mova #020.5. (RO) [MAINTENANCE MODE 
2 005060 00 CLR 6. (RO) [NO SEQUENCE # 
020604 012701 000012 MOV ARSMSIZ,R1 [GET SIZE OF PACKET 
020610 005721 TST (R1)+ +2 FOR CHECK 
020612 012765 000016 000070 MOV #RSSNSZ,SNDCNT(R5) SIZE TO SEND 
20620 004737 013520 CALL § CHKSUM 7FORM CHECKSUM R1=COUNT 
020624 010110 MOV R1, (RO) S INSERT CHECKSUM 
020626 012701 001000 MOV #512. ,R1 :SET EXPECTATIONS: 
CALC ‘. OF DATA PACKETS TO EXPECT: 
020632 012703 000034 MOV AXSFLG,R3 [GET OFFSET 
020636 060503 ADD RS_R3 SABS. ADDR. OF XSFLG 
020640 00500 CLR R [PRESET A 
020642 00520 78$: INC [# PACKETS EXPECTED 
020644 012 MOV rats (R3)¢ [LOAD XSFLG 
020650 127 3 000204 MOV :AND EXPECTED COUNT 
020654 162701 000200 SUB #128. .R1 [NEG RESULT LAST TIME 
020660 101401 BLOS gos [LAST TIME 
020662 000767 BR 8$ [MORE T 
020664 00520 80$: INC Re [ADD ONE FOR END PACK 
02 010 $ 000032 MOV R2,XSPKNM(RS)  :SAVE # PACKETS TO EXPECT 
0206 O12 : 000002 MOV mnswos (R35) [EXPECT AN END ALSO... 
020676 012713 000016 MOV SNDSZ, (R [THIS BIG-14. BYTES 
020702 004737 006556 CALL : 


[AND RETURN TO SCHEDULER 


MISCELLANEOUS 


TEST 


$3 


S 


Ww 
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RES 
SSS 


Ss 
/ HIGH A 


ar 


020714 


020714 
0 
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— 
MO 
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C 
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SSSS=SsssosSsa=2 
Sy 
a 
MmWM 


oo 

= 
N 
So 
— 


MACRO M1113 25-SEP-81 10:06 PAGE 106-3 
WRITE/READ 


002010 81$: 
026174 86$: 
$0013 
000012 000001 
000002 000002 
000012 
000060 000004 
000003 
001000 000010 87$: 
000020 000005 
000006 
000012 
000016 000070 
013520 
001000 
000034 
83$: 
000001 
000204 
000200 
85$: 
000032 
000002 
000016 
006556 
000002 ADD #2,R4 
021214 TST TST3PT(R4) 
BEQ 23 
017704 JMP 1$ 
2s: CLR RS 
000200 000064 ADD #200 REC(R 
001000 000064 BIT #1000, REC( 
BNE 3$ 
017704 JMP 1$ 
000064 3$: SUB #1000, REC( 
900066 000064 ADD TMP(R5) RE 
000066 ASR TMP(R5) 
BCS 4$ 


BIT 


CALL 


SEQ 0098 


goiTi0lerT5. o@RS5 RETRY? 


:NO. 
REC(RS) #512. ,DRCRS) 


ATRBUF ,RO 
SCMND 


wR ,aRO 
#RSMS1Z.1(RO) 
#RSSRD, 2(RO) 
REC (R55 ,10. (RO) 
DR CRS) 4. (RO) 


(RO) 
#512. ,8. (RO) 


#020,5. (RO) 

. (ROD 
#RSMSIZ,R1 
(R1)+ 


#RSSNSZ, SNDCNT(RED- 


CHKSUM 

R1, (RO) 
#512. ,R1 
AXSFLG,R3 
R5 RS 


R2 
ee ek (R3)+ 


#132.,(R3)+ 
28.,R1 


83$ 


R2 
R2,XSPKNA(RS) 
#RSEND, (R3) + 


#RSNDSZ, (R3) 
RSVP 


POINT TO NEXT DATA 
:END? 


tNO-WRIT 

*RESTORE Ero NEXT RECORD 

ZHALE INTO REST OF TAPE 
HALE | OF HALF FOR NEXT TIME 


sNO-WRITE, READ NEW DATA 
:POINT TO FIRST 


sYES 

3FORM CMND PACK: 

iME SSAGE PACK TYPE 
THIS BIG 

20P CODE-READ 

THIS RECORD 


THIS DRIVE 


4 3 THRESHOLD 


SREDUC 


CHANGE THRESHOLD 


7 YES 
:# BYTES DESIRED 
;MAINTENANCE MODE 


3NO_SEQUEN ne 

SIZE F as ACKET 

LUS FLAG+COUNT INTO R1 
3SET UP SIZE TO SEND 


zFORM CHECKSUM R1=COUNT 
z INSERT IN PACKET 


SET EXPECTATIONS: 
CALC _# OF ap} PACKETS TO EXPECT 
3 OFFSET OF FLAG 
S. ADDR. OF XSFLG 


{PRES 

:# PACKETS EXPECTED 
;LOAD XSFLG 

zAND EXPECT COUNT 
sNEG_RESULT LAST TIME 
sLAST TIME! 


ADD ONE FOR END PACK 
zSAVE # PACKETS TO EXPECT 
EXPECT AN END 

:THIS B1G-14. BYTES 


: SEND 
AND RETURN TO SCHEDULER 


DATA 
NOW USE ADJACENT RECORD 
ZALL ADJACENT RECORDS DONE? 


READ _AT NEW RECORD 


MI 
TE 


MISCELLANE 


MACRO M1113 25-SEP-81 10:06 PAGE 106-4 
TEST 3 / 


WRITE/READ 


MP 1$ 3NO 
4$: ss DONE sYES-SET FLAG 
TST3PT: 0009 
-WORD 1252 
17777 


052525 
000000 


DDD ed ed et ot ot ot ot 

—"OVDOONOULSWN 
Soocooooo 
Rorononoronsnorng 
SOuUNMONN— =s 
SNES OUW - 
YINNONNN <M 


RRO OS 


ENDTST 


L10016: 
T 


RAP CSETST 





MISCELLANEOUS SECTIONS MACRO M1113 25-SEP-81 10:06 PAGE 108 
TEST 3 / HIGH ACTIVITY WRITE/READ SEQ 0100 
3624 
36 5 .SBTTL TEST 4 / WRITE SELECTED NUMBER OF BLOCKS 
3627 0212 BGNTST 
Oo 1330 T4:: 
3628 021230 TSTID #TST4 
021230 012737 021274 003324 MOV #TST4,TSTTOP sSAVE ADDR OF TEST 
021236 004737 002 CALL SETUP ZINIT UNITS TSTPC 
021242 004737 005630 CALL = SETDR *GET 1ST DRVS. 
021246 004737 006050 CALL RUN :D0 TEST 
021252 004737 005526 CALL.  SWAPDR 3GET NEXT DRVS. 
021256 103004 BCC 64$ R 
021260 004737 006002 CALL = SETUP :REINIT UNITS TSTPC 
021264 004737 006050 CALL RUN [REPEAT TEST 
021270 64$: ‘DONE 
3629 021270 EXIT TST 
21270 104432 TRAP  C$EXIT 
va 021272 000724 .WORD 110017-. 
3631 
3632 021274 005065 000064 TST4: CLR REC(RS) :START AT Aus: 0 
3633 021 013765 003306 000066 MOV TAPLEN, TMP(RS) :GET THE # OF BLOCKS PER TRACK 
3634 021306 005065 000062 CLR K “TRK(R5)=1ST OR 2ND PASS COUNTER 
35 021312 016565 000064 000072 1S: MOV REC (RD) .PATTEN(RS) ZUSE RECORD NO. FOR DATA 
1320 005737 002216 TST DRV ZADD DR #? 
3637 021324 001403 BEQ ‘NO 
3638 021326 066565 000060 000072 DR(RS) ,PATTEN(RS) YES ADD DRIVE ID 
3639 021334 10S: TUURIT PA TTENCRS) REC (RS) A512. pre R(RS) 
021334 012700 026174 72$: ho” :MAKE COMMAND PACKET: 
021340 112710 900002 move SRSchwb @RO :C FLAG 
021344 112760 000012 000001 MOVB &#RSMSIZ.1(RO)  :THIS SIZE 
021352 112760 000003 900002 MOVB  #RSSWR, 2(RO) ZINSERT OP CODE~WRITE 
021360 112760 000000 00000 MOVB =-« #03. (RO) SVERIFY (1 OR 0) 
021366 116560 000060 000004 MOVB DR(R5),4.(RO) DRIVE # 
021374 112760 000020 000005 MOVB #020 5° (RO) SMAINTENANCE MODE SWITCH 
021402 005060 000006 CLR [NO SEQUENCE # 
1406 012760 001000 000010 MOV $13. 8.( STOTAL COUNT TO WRITE 
021414 016560 000064 000012 MOV Ec(rs). 10. tRO) TAT RECORD N 
021422 012701 000012 MOV aRSMSIZ-R : THE PACKET SIZE PLUS+2 
021426 005721 TST (R1)4 FLAG AND COUNT) INTO R1 
1430 012765 000016 000070 MOV #RSSNSZ, ai! ;LOAD THE SIZE TO SEND 
021436 004737 013520 CALL =‘ CHKS >RO ==> R1=COUNT 
021442 010110 R1, (RO) PUT CHK SUM IN PACKET 
SET ue EXPECTATIONS: 
021444 012765 000020 000034 MOV #RSCONT XSFLG(RSS FLAG 
021452 012765 000001 000036 MOV SCNT (RS) 
021460 012765 000001 000032 MOV 4 oT OKA PKNM(RS)  :THE @ PACKETS EXPECTED 
021466 012702 001 MOV #512. .R2 :GET # OF DATA BYTES 
021472 004737 006556 CALL RSVP :SEND (AND RETURN TO SCHEDULER) 
021476 032715 000010 BIT #B1T3,aR5 ZFLAG BYTE ERROR? 
021504 aE 010000 BIC #B1T12,aR5 <FLAG FOR LAST PACKET 
021510 012700 026174 64$: MOV #TRBUF .RO [POINT TO TOP OF BUFFER AGAIN 
021514 02022 CMP Re #128, * START DATA PACKET (S) 
021520 101004 BHI 65§ :#512. > 128.! 
021522 010201 MOV R2,R1 2#512.<1 
021524 052715 010000 BIS #B81T12,aR5 ?S0 LAST PACKET NOW 


MISCELLANEOUS SECTIONS MACRO M1113 25-SEP-81 10:06 PAGE 108-1 
TEST 4 / WRITE SELECTED NUMBER OF BLOCKS SEQ 0101 
0215 02 BR 66$ ZUSE REMAINING COUNT 
031339 000705 000200 65$: MOV #128. ,R1 [USE 128. BYTES 
0215 110160 000001 66$: MOVB  R1,1¢RO) ‘COPY COUNT TO BUFFER 
02154 01010 MOV R1.R3 :R3= COUNTER TO LOAD BUFFER 
021544 112710 000001 MOVB #RSDATA,@RO [FLAG FIRS 
021550 005720 TST (RO) + SKIP COUNT 
021552 116520 000072 67$: MOVB  PATTEN(RS), (RO)+ y INSERT DATA 
021556 005303 DEC R3 :MORE? 
021560 101374 BHI 67$ YES 
021562 012700 026174 MOV #TRBUF RO t==>TOP AGAIN 
021566 116001 001 MOVB RO) Al [GET COUNT 
021572 042701 177400 BIC #177460,R1 :ZERO SIGN EXTEND 
021576 010165 000070 MOV R1,SNDCNT(RS) HOW MANY 10. SEND PLUS 
021602 062765 000004 000070 ADD #4, SNDCNT(R5) FLAG, COUNT, CHKSUM 
021610 062701 000002 ADD #2.R1 : COMPENSATE FOR FLAG + COUNT 
021614 004737 013520 CALL § CHKSUM [FOR CHECKSUM CALC. 
021620 110120 MOVE = R11, (RO) + + CHKSUM INTO PACKET 
021622 000301 SWAB séRT SEVEN ON AN ODD 
021624 110120 MOVB = R17, (RO) + [BYTE BOUNDARY 
1626 032715 010000 BIT #81T12,aR5 ;LAST DATA PACKET? 
021632 001412 BEQ 68 
1634 012765 000002 000034 MOV ARSEND XSFLG(RS). i YES-EXPECT "END' 
021642 012765 000016 000036 MOV ORSNDSE x T(R5) ":OF THIS SIZE 
021650 012765 000001 000032 MOV ef NSPRAPRS) ZAND 1 PACKET 
021656 000411 BR 6 
21660 012765 000020 000034 68$: MOV ARSCONT.XSFLG(RS): (NOT LAST). EXPECT "CONTINUE" 
021666 012765 000001 000036 MOV #1,XSCNT(RS) AND 1 BYTE 
021674 012765 000001 000032 MOV #1-XSPKNM(R5) AND AND 1 PACK T 
021702 004737 006556 69$: CALL RSVP [SEND PACKET 
[AND RETURN TO SCHEDULER 

021706 032715 000010 BIT #B1T3.aR5 [FLAG BYTE RETRY? 
021712 001210 BNE YES 
021714 032715 002000 BIT #81T10,aR5 SRETRY DATA ERROR? 
021720 001004 BNE 7 :Y 
021722 162702 000200 SUB #128. ,.R2 *NO, MORE DATA TO SEND? 
021726 101270 BHI 64$ ‘YES 
021730 000502 BR 71$ e NO 
021732 70$:  TURTRY REC(RS),#512.,DR(R5)  ;RETRY HERE 
021732 012700 026174 76$: MOV #TRBUF ,RO sFORM CMND PACK: 
021736 112710 000002 MOVB  #RSCMND, aRO ZMESSAGE PACK TYPE 
021742 112760 000012 000001 MOVB &#RSMSIZ.1(RO)  :THIS BIG 
021750 112760 000002 900002 MOVB  #RSSRD,O(RO) :0P CODE-READ 
021756 016560 000064 00001 MOV REC(R5SS.10.(RO) :THIS RECORD 

1764 116560 000060 000004 MOVB DRCRS) .4. (RO) [THIS DRIVE 
021772 105060 000003 CLRB (RO) SPRESET NORM THRESHOLD 
021776 105715 TSTB ss @RS REDUCED? 

22000 100008 BPL 
022002 105260 000003 INCB —-_ 3(ROD SYES=CHANGE THRESHOLD 
22006 012760 1000 000010 77$: MOV #512. 8, (RO) :# BYTES DESIRED 
022014 112760 20 000005 movB «#0205. (R ; MAIN NTENANCE MODE 
022022 905060 900006 CLR 6. (RO) SE QUENCE ) 
022026 012701 00001 MOV #RSMSIZ,R1 ete OF P ACKET 
022032 005721 TST (R1)+ PLUS FLAG+COUNT INTO R 
022034 012765 000016 000070 MOV #RSSNSZ.SNDCNT(RS) :SET UP SIZE TO OND 


MISCELLANEOUS SECTIONS 


TEST 4 


022042 
022046 


022050 
022054 
0 


QU & 
MOANA 


gegecssese 
AAD — AW 


Sa3S335333 
Ri 


WN — SO CONOUSWN—o 


esets 


737 
10110 


Wwe 
Nm 
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BLOCKS 


013520 


001000 


600066 
003332 
003306 
021312 
603320 


/ WRITE SELECTED NUMBER OF 


000064 
000066 


2$: 


TST4EX: 


ENDTST 


73$: 


75$: 


TMP(R5) 


SECREC ,REC(RS 
un, TMP (RS 


~~ 


SEQ 0102 

CALL CHK SUM :FORM CHECKSUM R1=COUNT 
MOV 1, (RO) S INSERT IN PACKET 
MOV #512.,R1 :SET EXPECTATION 

:CALC # OF DATA PACKETS 0 EXPECT 
MOV #XSFLG,R3 [OFFSET OF FLAG 
ADD R9 -RS ZABS . ADDR. OF XSFLG 
INC R2 t# PACKETS EXPECTED 
MOV #RSDATA, (R3)+ SLOAD XSF LG 
MOV #132.,(R3)+ SAND EXPECT COUNT 
SUB #128. .R1 NEG RESULT LAST TIME 
BLOS 75$ SLAST TIME! 
BR 73$ MOR 
INC R2 tADD ONE FOR END PACK 
MOV R2,XSPKNM(R5) SAVE # PACKETS TO EXPECT 
MOV WRSEND,(R3)+ | EXPECT AN END 
MOV WRSNDSZ,(R3) = THIS BIG-14. BYTES 
CALL RSVP 


:D0 ALL_RECORDS wate THIS TRACK? 
7YES-GET OTHER TRACK 

7NO-ONTO NEXT RECORD 

EXECUTE mL, WRITE 


[DONE 2 
sYES-EXIT 
sNO-SET FLAG FOR NEXT PASS 
GET 7. 4 TARTING BLOCK # 
sRESET # OF BLOCKS 
3 AND EXEC 

ONE 
RETURN 

110017: 


TRAP 


CSETST 


: SEND 
zAND RETURN TO SCHEDULER 


MISCELLANEOUS SECTIONS MACRO mi113 oper seP-8t 10:06 PAGE 110 
TEST 5 / READ SELECTED NUMBER OF B SEQ 0103 

365 .SBTTL TEST 5 / READ SELECTED NUMBER OF BLOCKS 

3658 022220 BGNTST 
039980 TS:: 

3659 022220 TSTID #TSTS 
022220 012737 022264 003324 MOV ATSTS,TSTTOP ;SAVE ADDR OF TEST 
OS$s 6 004737 006002 CALL SETUP ‘INIT ats TSTPC 
022232 004737 005630 CALL  SETOR 3GET 1ST DRVS. 
022236 004737 006050 CALL RUN EST 
022242 004737 005526 CALL § SWAPDR GET NEXT DRVS 
022246 103004 BCC 64$ ‘BR NO 2ND DRVS 
022250 004737 006002 CALL SETUP :REINIT Ults TSTPC 
022254 004737 006050 CALL = RUN sREPEAT TEST 
022260 64$: ‘DONE 

3660 022260 EXIT TST 
022260 104432 TRAP (C$EXIT 

ean 022262 000520 .WORD 110020-. 

3662 

3663 022264 005065 000064 TSTS: CLR REC(RS) ;START AT REC 0 

3664 022270 013765 003306 000066 MOV TAPLEN,TMP(RS) ;GET THE # OF BLOCKS PER TRACK 

3665 022276 005065 000062 CLR kK “TRK(RS)=1ST OR 2ND PASS 

3666 022302 016565 000064 000072 1S: MOV REC(R9) .PATTEN(RS) USE RECORD NO. AS DATA 

3667 022310 005737 002216 TST DRV 3ADD DR #? 

3668 022314 001403 BEO ta 

3669 022316 066565 000060 000072 DR(RS) ,PATTEN(RSS :ADD IN DRIVE ID 

3670 022324 10S: TUREAD BECeRSS #512. ,0R(R5) #0 
022324 012700 026174 68$: MOV #TRBUF ,RO :FORM CMND PACK: 

22330 112710 000002 MOVB #RSCMND,@RO [MESSAGE PACK TYPE 
022334 112760 000012 000001 MOVB &#RSMSIZ.1(RO) THIS BIG 
22342 112760 000002 000002 MOVB &#RSSRD,2(RO)  :O0P CODE IS READ 

022350 016560 000064 000012 MOV REC(R55.10.(RO) : THIS RECORD 
022356 116560 000060 000004 MOVB  DR(R 5) &.(R0) =: THIS DRIVE 
022364 112760 000000 00 MOVB S VERIFY 
022372 012760 001000 000010 MOV roo) oe (RO) STOTAL BYTES TO READ 
022400 112760 000020 000005 MOVB 3.(R [MAINTENANCE MODE 
022406 005060 000006 CLR 6.¢ [NO SEQUENCE # 
022412 012701 000012 MOV go Snsiz. R1 2GET SIZE OF PACKET 
022416 005721 TST (R1)+ +2 FOR CHECKSUM 
022420 012765 000016 000070 MOV #RSSNSZ, SNDCNT (RS) sSIZE TO SEND 
022426 004737 013520 CALL CHKSUM > FORM CHECKSUM R1=COUNT 
022432 010110 MOV R1, (RO) ZINSERT CHECKSUM 
022434 012701 001000 MOV #512.,R1 He ‘ iF Data PacRelS To credil 
022440 012703 000034 MOV #XSFLG.RS [GET OFF 
022444 060503 ADD ABS. ADDR OF XSFLG 
022446 005002 CLR SPRESET AS 
022450 005208 64$: INC 7# PACKETS EXPECTED 
022452 01 000001 MOV BRSDATA. (R3)+ [LOAD XSFLG 
022456 012723 000204 MOV sAND EXPECTED COUNT 
022462 162701 000200 SUB F128 AT NEG RESULT LAST TIME 
022466 101401 BLOS  66$ SLAST TARE 
022470 000767 BR 64$ :MORE TO DO 
022472 005202 66$: INC R2 SADD ONE FOR END PACK 


teat 


3 


WI SCELLANEQU S SECTIONS MACRO M1113 25-SEP-81 10:06 PAGE 110-1 
PNREAD SELECTED NUMGER OF BLOCKS SEQ 0104 
022474 on 2 5 32 MOV R2,XSPKNM(RS)  ;SAVE # PACKETS TO EXPECT 
022500 01 MOV #RSEND,(R3)* | EXPECT AN END ALSO... 
022504 O12715 000016 MOV PRenDS! (RS) STHIS B1G-14. BYTES 
022510 004737 006556 CALL RSVP SE 
AND RETURN TO SCHEDULER 
022514 032715 002010 67$: BIT #81T10!B1T3,aR5 iRE TRY? 
022520 001500 BEQ 5$ 
022522 TURTRY REC(RS) #512. “pring sYES 
022522 012700 026174 72$: MOV #TRBUF ,RO sFORM CMND PACK: 
022526 112710 000002 MOVB = #RSCMND,aRO [MESSAGE PACK TYPE 
022532 112760 600012 000001 MOVB &#RSMSIZ.1(RO) THIS BIG 
022540 112760 000002 000002 MOVB  &#RSSRD,2(RO) :0P CODE-READ 
022546 016560 000 000012 MOV REC(R55,10.(RO) :THIS RECORD 
022554 116560 000060 000004 MOVB _DR(RS),4. (RO) ;THIS DRIVE 
022562 105060 000003 CLRB  =—-_- 3(RO) PRESET NORM THRESHOLD 
22566 105715 TSTB sR + REDUCED? 
022570 100002 L : 
022572 105260 000003 INCB =. 3¢RO) : YES-CHANGE THRESHOLD 
022576 012760 001000 000010 73$: MOV 51. 8.(RO)  :# BYTES DESIRED 
22 112760 000020 000005 MOVB 0,5. (RO) * MAINTENANCE MODE 
022612 005060 000006 CLR 6. ait [NO SEQUENCE # 
022616 012701 000012 MOV #RSMS1Z,R1 : SIZE OF PACKET 
022622 005721 TST (R1)4 LUS FLAG+COUNT INTO R1 
022624 012765 000016 000070 MOV SRSSNSZ SNDCNT(RED” 7SET UP SIZE TO SEND 
022632 004737 013520 CALL CHKSUM sFORM CHECKSUM R1=COUNT 
022636 010110 MOV R1, (RO) : INSERT IN PACKET 
022640 012701 001000 MOV #512.,R1 sSET EXPECTATIONS: 
sCALC # OF ie PACKETS TO EXPECT 
022644 012703 000034 MOV #XSFLG,R3 [OFFSET OF FLAG 
022650 060503 ADD R5,R3 TABS. ADDR. OF XSFLG 
022652 005002 CLR R2 *PR 
022654 005202 69$: INC R2 '# PACKETS EXPECTED 
022656 012723 000001 MOV MRSDATA,(R3)* LOAD XSFL 
22662 012723 000204 MOV #132.,(R3)+ sAND EXPECT COUNT 
022 162701 000200 SUB #128. .R1 3NEG RESULT LAST TIME 
022672 101401 BLOS 71$ ‘LAST TIME! 
022674 000767 BR 69$ [MORE TO DO 
022676 005202 71$: ‘INC R2 [ADD ONE FOR END PACK 
2700 010265 000032 MOV R2, XSPKNM(RS) [SAVE # PACKETS TO EXPECT 
022704 012723 000002 MOV #RSEND,(R3)+  :EXPECT AN 
022710 012713 000016 MOV oRenips (R3) THIS BIG-14. BYTES 
022714 004737 006556 CALL = RSVP SEND 
SAND RETURN TO SCHEDULER 
3671 022724 005365 000066 DEC TMP(RS) :D0 ALL RECORDS THIS TRACK? 
3672 022730 001404 BEQ 2$ iVES-GET OTHER TRACK 
3673 022732 005265 000064 INC REC(RS) *NO-NEXT REC 
74 022736 000137 022302 JMP 1$ EXECUTE re READ 
75 622742 005765 000062 2$: TST TRK(RS) [DONE 2 TRACKS? 
3676 022746 901012 BNE TSTSEX iVES- XIT 
3677 022750 00526 900062 INC TRK(R5) SET FLAG FOR NEXT PASS 
3678 022754 013765 003332 000064 MOV SECREC,REC(RS) eT NEW STARTING BLOCK # 


MISCELLANEOUS S$ 


ECTIONS 
TEST 5 / READ SELECTED 


368 
3684 023002 


023002 
023002 104401 


MACRO 
NUMBER 


E 
SR ire Wile BSS rsex f 
2230 JMP 
774 005237 00 $39 TSTSEX: INC 
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RETURN 
ENDTST 


pert d- 
DONE 


sRESET # OF BLOCKS 
AND EXECUTE 
“DONE 


RETURN 


L10020: 
TRAP CSETST 


SEQ 0105 


v 
= 


MISCELLANEOUS SECTIONS MACRO M1113 25-SEP-81 _1°: 06 PAGE 112 
TEST 6 / WRITE-VERIFY SELECTED NUMBER OF 6 SEQ 0106 
7 .SBTTL TEST 6 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 
02 BGNTST 
02 '6:: 
3690 02 TSTID  &#TST6 
023004 012737 023050 003324 Moy #TST6,TSTTOP ;SAVE ADDR OF TEST 
023012 0904737 006002 CALL SETUP SINIT UNITS TSTPC 
023016 004737 005630 CALL = SETOR *GET 1ST DRVS. 
023022 004737 006050 CALL RUN [D0 TES) 
023026 004737 005526 CALL § SWAPDR 3GET NEXT DRVS. 
023032 103004 BCC 648 NO RV 
023034 004737 006002 CALL = SETUP :REINIT UNITS TSTPC 
023040 004737 006050 CALL RUN ‘REPEAT TEST 
023044 64$: ‘DONE 
3691 023044 EXIT TST 
023044 104432 TRAP CS$EXIT 
023046 000724 .WORD 110021-. 
3698 
3694 023050 005065 000064 TST6: CLR REC(RS) sSTART AT REC 0 
3695 023054 013765 003306 000066 MOV at TMP (RS) 4 THE # OF BLOCKS PER TRACK 
3696 023062 005065 000062 CLR TRK RS) =1ST OR 2ND PA 
97 02 016565 0 000072 1$: MOV REC(RS), PATTEN(RS) ZUSE RECORD NO. FOR DATA 
3698 023074 005737 002216 TST DRV ADD i "2 
3699 023100 001403 BEQ 1 *NO 
3700 023102 066565 000060 000072 ADD DR(RS5) ,PATTEN(RSS ZADD DRIVE ID 
3701 023110 10$:  TUWRIT PA TTENCRS) REC(RS? oh512. DIRS) , fi 
023110 012700 026174 72$: #TRBUF RO :MAKE COMMAND PACKET: 
023114 112710 000002 move aR ,aRO 3 COMMAND FLAG 
023120 112760 900012 000001 MOVB &#RSMSIZ.1(RO)  :THIS SIZE 
023126 112760 00000 MOVB  #RSSWR, 2(RO) INSERT OP CODE-wWRITE 
023134 112760 000001 000003 MOVB »3. (RO) :VERIEY (1 OR 0) 
023142 116560 000060 0000 MOVB R5).4.(RO) :DRIVE # 
023150 112760 000020 000005 MOVB 0,5. [MAINTENANCE MODE SWITCH 
023156 005060 000006 CLR (RO), 3NO EQUENCE # 
023162 012760 001000 000010 MOV #51 (RO) TOTAL COUNT TO WRITE 
023170 016560 000064 000012 MOV REC CRS). 10. (RO) :AT RECOR 
023176 012701 000012 MOV #RSMSIZ.R : THE PACKET SIZE PLUS+2 
023202 005721 TST (R1)+ “(FLAG AND COUNT) INTO R1 
023204 012765 000016 000070 MOV #RSSNSZ, seid :LOAD THE SIZE TO SEND 
023212 004737 013520 CALL HK RO ==> R1=COUNT 
023216 010110 R1, (RO) PUT CHKSUM IN PACKET 
SET _UP EXPECTATIONS: 
023220 012765 000020 000034 MOV ARSCONT.XSFLG(RSS = THE FLAG 
023226 012765 000001 000036 MOV #1,XSCNT(RS) TH 
23234 012765 000001 000032 MOV #1 + SBKNACRS) ‘THE # PACKETS EXPECTED 
023242 012702 001000 MOV #512. ,R2 :GET # OF DATA BYTES 
023246 00473 006556 CALL RSVP :SEND (AND RETURN TO SCHEDULER) 
023252 032715 000010 BIT #B1T3,aR5 3FLAG BYTE ERROR? 
023256 001314 BNE 72$ YES 
023260 042715 010000 BIC #B1T12,aR5 :FLAG FOR LAST PACKET 
023264 012700 026174 64$: MOV #TRBUF RO T TO TOP OF BUFFER AGAIN 
023270 2022 000200 CMP Ref #128. {START DATA PACKET(S) 
023274 101004 BHI 638 :8 Wie. > 128.! 
023276 910201 J 
23 052715 010000 BIS Be Ro ans a LAST PACKET NOW 
023304 000402 66$ [USE REMAINING COUNT 
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SELECTED NUMBER OF BLOCKS 

000200 

000001 


000016 
013520 


000070 


000001 
000002 
000012 
000004 


000010 


000005 


000070 


67$: 


68$: 


69$: 


70$: 


76$: 


77$: 


SEQ 0107 

#128. ,R1 ZUSE 128. BYTES 
R1,1(RO) : oP COUNT TO BUFFER 
R1.R *R3=COUNTER TO LOAD BUFFER 
ARSDATA, @RO “FLAG FIRST 

d+ 3 OUNT 
PATTEN(RS) , (RO) + s INSERT DATA 
7$ VES 
TRBUF ,RO t==>TOP AGAIN 
1(RO) ,R1 :GET COUNT 
#177460,R1 :ZERO SIGN EXTEND 
R1,SNDCNT(RS) :HOW MANY TO SEND PLUS 
#4°SNDCNT(R5) FLAG, COUNT, CHKSUM 
#2,R1 [COMPENSATE FOR FLAG + COUNT 
CHK SUM :FOR CHECKSUM CALC. 
R1,(RO)+ :CHKSUM INTO PACKET 
R1 SEVEN ON AN ODD 
R1, (RO)+ ‘BYTE BOUNDARY 
#BiTi2,aR5 LAST DATA PACKET? 
ARSEND,XSFLG(RS) ;YES-EXPECT ‘END’ 
#RSNDSZ,XSCNT(R5) °:OF THIS SIZE 
1,.XSPKNM(R5) | ;:AND 1 PACKET 


6 : SEND 

ARSCONT,XSFLG(RS) ;(NOT LAST), EXPECT ‘CONTINUE’ 
#1,XSCNT(RS5) AND 1 BYTE 

1 :AND 1 PACKET 


#1 XSPKNM(R5) 
svP [SEND PACKET 
[AND RETURN TO SCHEDULER 
#91T3,aR5 [FLAG BYTE RETRY? 
#81T10,aR5 RETRY DATA ERROR? 
#128. .R2 ‘NO, MORE DATA TO SEND? 
64$ YES 


71$ 3NO 
REC(RS) .#512. ,DR(RS) sRETRY HERE 


zFORM CAND PACK: 
#R 2@RO MESSAGE PACK TYPE 
#RSMS1Z,1 (RO) log 8 


DR(R5),4.(RO)  :THIS DRIVE 

3(RO) [PRESET NORM THRESHOLD 
5 SREDUCED? 

77 NO 

3(RO) *YES=CHANGE THRESHOL 

#512.,8.(RO) 34 BYTES DESIRED 

#020.5. (RO) [MAINTENANCE MODE 

6. (RO) [NO SEQUENCE # 

#RSMS1Z,R1 ‘SIZE OF PACKET 

(R1)+ “PLUS FLAG+COUNT INTO R1 

#RSSNSZ,SNDCNT(R5) SET UP SIZE TO SEND 

CHKSUM zFORM CHECKSUM R1=COUNT 








“2 


2909999999999 9999998898999989999999999999999992722P>Prerzezez 


AAN 
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TEST 6 / WRITE-VERIFY SELECTED NUMBER OF B 
023622 010110 
023624 012701 001000 


8s 30 O58 000034 
BE Se 

0 3609 012723 000001 
023646 012723 000204 
023652 162701 000200 
023656 101401 

r4 000767 
023662 00520 

023664 010265 000032 
023670 012723 000002 
023674 012715 000016 


3702 023714 005365 000066 
$i0? 023720 001404 


vos 


65 000 
765 003332 000064 
00 000066 


WWM UI 


11 
3712 023764 
iz 023770 


371 

3715 023772 
023772 
023772 


S 

% 

S 
ssgsesss 

RS 


= 
g 
LL 
So 
= 


2$: 


TST6EX: 


ENDTST 


73$: 


75$: 


TMP(RS5) 
REC(RS) 
TRK(R5) 


(R5) 
SECREC, REC IRS? 
eo" MP(RS) 


MOV R1, (RO) yINSERT IN PACKET 

MOV #512.,R1 :SET EXPECTATIONS: 
ZCALC # OF DATA PACKETS TO EXPECT 

MOV #XSELGR3 SOFFSET OF FLAG 

ADD R5,R 3ABS. ADDR. OF XSFLG 

INC R +# PACKETS EXPECTED 

MOV an DATA, (R3)+ LOAD X sFLG 

MOV g..(R3)* ZAND EXPECT COUNT 

SUB 4128. NEG RESULT LAST TIME 

BLOS 75$ 3LAST TIME! 

BR 73$ : 

INC R2 tADD ONE FOR END PACK 

MOV R2,XSPKNM(RS) :SAVE # PACKETS TO EXPECT 

MOV WRSEND,(R2)+  :EXPECT AN E 

MOV WRSNDSZ,(R3) :THIS BIG-14. BYTES 

CALL RSVP : SEND 


SAND RETURN TO SCHEDULER 


:D0 ALL_RECORDS FOR THIS TRACK? 
i VES-GET OTHER TRACK 


ZNO-NEXT RECORD 
SEXECUTE THE WRITE 
DONE 2 TRACKS? 


NO-SET FLAG FOR NEXT PASS 
GET NEW STARTING BLOCK # 
F BLOCKS 


110021: 
TRAP CSETST 


L' 
i 
Lu 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
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TEST 7 / READ=REDUCED THRESHOLD SELECTED NUMBER CF BLOCKS SEQ 0109 

Hae .SBTTL TEST 7 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 

720 023774 BGNTST 
8s 774 T7:: 

3721 0 3776 TSTID #TST7 
023774 012737 024040 003324 MOV #TST7,TSTTOP SAVE ADDR OF TEST 
024002 004737 CALL SETUP SINIT UNITS TSTPC 
924006 004737 005630 CALL = SETOR [GET 1ST DRVS. 
024012 004737 906050 CALL = RUN 7D0 TEST 
024016 004737 005526 CALL § SWAPDR [GET NEXT DRVS. 
024022 103004 BCC 64$ ‘BR NO 2ND DRVS 
024024 004737 006002 CALL SETUP SREINIT UNITS TSTPC 
024030 004737 006050 CALL = RUN SREPEAT TEST 
924054 64$: + DONE 

3722 026034 EXIT TST 
024034 104432 TRAP (C$EXIT 

— 024036 000520 .WORD 110022-. 

3724 

3725 024040 005065 000064 TST7: CLR REC(RS) sSTART AT REC 0 

3726 024044 013765 003306 000066 MOV TAPLEN, TMP(RS) :GET THE # OF BLOCKS oper TRACK 

3727 024052 005045 000062 CLR (R55 “TRK(RS)=1ST OR PAS 

3728 024056 016565 000064 000072 15: MOV REC (RO) ,PATTEN(RS) USE {RECORD NO. FOR DATA 

3729 024064 005737 002216 TST DRV ZADD' DR #? 

3730 024070 001403 BEG 10S" 

3731 024072 066565 000060 000072 DR(RS) ,PATTEN(RSS ZADD DRIVE ID 

3732 024100 10S: TUREAD REC(R5S #512. ,DR(RS) #1 
024100 012700 026174 68$: MOV #TRBUF RO :FORM CMND PACK: 
024104 112710 000002 MOVB  &#RSCMND,aRO [MESSAGE PACK TYPE 
024110 112760 000012 000001 MOVB &#RSMSIZ.1(RO) THIS BIG 
024116 112760 000002 000002 MOVE &#RSSRD,2(RO)  :0P CODE IS READ 
024124 016560 000012 MOV REC(R5S.10.(RO) :THIS RECORD 
024132 116560 000060 MOVB DRC R(RS),4.(RO) THIS DRIVE 
024140 112760 1 000003 MOVB 3. (RO) ‘VERIFY 
024146 012760 001000 000010 MOV Ate 8. (RO) : TOTAL BYTES TO READ 
024154 112760 000020 000005 move #020.5.(R [MAINTENANCE MODE 
024162 005060 CLR , (RO) - [NO SEQUENCE # 
241 912701 000012 MOV #RSMSIZ, R1 :G T SIZE OF PACKET 
024172 005721 TST (R 
024174 012765 900016 000070 MOV ARSSNSZ. SNDCNT (RED SIZE To. SEND 
024202 004737 013520 CALL § CHKSUM [FORM CHECKSUM R1=COUNT 
024206 010110 MOV R1, (RO) S INSERT CHECKSUM 
024210 012701 001000 MOV #512.,R1 sSET EXPECTATIONS: 

CALC ‘. OF DATA PACKETS TO EXPECT: 

024214 012703 000034 MOV #XSFLG.R3 [GET OFF 
024220 060503 ADD R5,R TABS. ADDR. OF XSFLG 
024222 005002 CLR :PRESE 
024224 00520 64%: ‘INC R2 :# PACKETS EXPECTED 
024226 012723 000001 MOV BRSDATA (R3)+ LOAD XSFLG 
024232 012723 000204 MOV #132. ,(R3)+ [AND EXPECTED COUNT 
24236 162701 000200 SUB #128. .R1 [NEG RESULT LAST TIME 
024242 101401 BLOS  66$ [LAST TIME 
024244 000767 BR 64$ [MORE TO DO 
024246 005202 66$: INC R2 SADD ONE FOR END PACK 
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TEST 7 / READ-REDUCED THRESHOLD SELECTED NUMBER OF 

024250 010265 sia 

0 4384 O19%2 

024260 01271 poele 
006 


024270 032715 002010 
024274 001500 
024276 


024276 
0 


Sseease sy 
: 


000016 000070 
024406 004737 013520 
024412 010110 
024414 012701 001000 
024420 012703 000034 
503 


2 
= 
a Ss 
S 
So 
—t 


3733 024500 005365 000066 DEC 
3734 024504 001404 BEQ 
3735 024506 005265 000064 INC 
3736 024512 000157 024056 JMP 
3737 024516 005765 000062 2s: TST 
$535 24522 paigis BNE 
739 024524 00526 000066 INC 
3740 024530 013765 003 000064 MOV 


TMP (RS) 
gach) 


TRK(R5) 
TST7EX 


TRK (RS) 
SECREC ,REC(RS) 


67$: 


72$: 


73$: 


69$: 


71$: 


SEQ 0110 
R2,XSPKNM(R5)  ;SAVE # PACKETS TO EXPECT 
WRSEND,(R3)+ EXPECT ALSO... 
SNDSZ, :THIS BIG-14. BYTES 


; SEND 
SAND RETURN TO SCHEDULER 
{T1018575, o@R5 GRETRY? 


REC(RS5) W512. ,DRIRSS 7 YES 


#TRBUF RO :FORM C 
SCMND ,@RO [MESSAGE PACK TYPE 
#RSMSIZ.1(RO)  :THIS BIG 
CODE-R 


DRI 
PRESET NORM THRESHOLD 
SREDUCED? 


3(RO) SYES=CHANGE THRESHOLD 
#512.,8.(RO)  :# BYTES DESIRED 
#020,5. (RO) ;MAINT SueNcE MODE 


6. (RO) z 

#RSMS1Z,R1 SIZE OF PACKET 

(R1)+ LUS FLAG+COUNT INTO R1 
PRSSNSZ SNDCNT(RE)- 3SET UP SIZE TO SEND 


CHKSUM :FORM CHECKSUM R1=COUNT 

R1, (RO) ZINSERT IN PACKET 

#512.,R1 sSET EXPECTATIONS: 
ZCALC # OF DATA PACKETS TO EXPECT 

#XSFLG,R3 [OFFSET OF FLAG 

R5,R3 TABS. ADDR. OF XSFLG 

R2 PRE 

R2 W) PACKETS EXPECTED 

HRSDATA,(R3)+* LOAD XSFLG 

132.,(R3)+ :AND EXPECT COUNT 

#128. .R1 [NEG RESULT LAST TIME 

71$ [LAST TIME! 

69$ [MORE T 

R2 [ADD ONE FOR END PACK 

R2, XSPKNA(RS) [SAVE # PACKETS TO EXPECT 

WRSEND,(R3)+ § :EXPECT AN 

ores? (R3) :THIS B1G-14. BYTES 


RSVP 3 SEND 
AND RETURN TO SCHEDULER 


2D0 ALL or. May TRACK? 
:VES-GET OTHER 


RECORD 
SEXECUTE THE r; oes 
DONE 2 TRACKS 


FLAG FOR NEXT PASS 


sNO-SET 
3GET NEW STARTING BLOCK # 


C 
S$) 
S' 
Al 
A 
A 
AL 
Al 
Al 
A! 
Bl 
BI 
Bl 
Bi 
8. 
B 
8 
B. 
8. 
5 
8. 
B. 
8. 
8. 
8. 
8. 
B 
B 
B 
8 
B 
B 
B 
B 
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TEST 7 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS SEQ 0111 2 
741 8 4536 0137 ; 3306 000066 MOV TAPLEN, TMP(RS) ;RESET # OF BLOCKS Bi 

ee 4544 1 $938 JMP 1$ sAND EXECUTE Bt 

0 1880 237 332 TST7EX: INC DONE 3; DONE Bt 

744 024554 000207 RETURN zRETURN : 
746 024556 ENDTST Bt 
02455 L10022: Bt 

024556 104401 TRAP CSETST a 

Ci 

a] 

Cc 

ci 

Cc 





MISCELLANEOUS SECTI 
TEST 8 / TESTS MODIFIED 


749 

750 

751 024560 
024560 


3735 oes 360 ore 
$22 024572 004 


NN 
WAG 
ANN 


3757 
3758 Oc6 306 


Ww 
N“N 
m 
v4 
Coron 
3 3 3OO 
Ca re es 
NNN 
SSoS8N 
oon 


SESEE 


S2888s 
NMMINUMMAUIUINIPONIPINY 


WWW 
NNN 
INN 
Ws Ul 
ooo 
MONON 
ats 
SSa8 
SS338S 
ad a a — 
AAWANS 
MMMNonNU— = 


3777 024716 
3778 

3779 024724 
ed 024730 


3783 024734 
3784 024740 


3785 

3786 024742 
787 

3788 024750 
3789 Oeer28 


oa 


NSSSSEE 


a ae 
on == 


3801 025036 
3802 025042 


SS 
= 
So 
—N 
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RADIAL SERIAL PROTOCOL 


-SBTTL TEST 8 / TESTS MODIFIED RADIAL SERIAL PROTOCOL 


SEQ 0112 





BGNTST 
T8:: 
924602 003324 MOV #TST8,TSTTOP = SAVE ADDR OF TEST 
00600 CALL = SETUP SINIT UNITS TSTPC 
CALL : 
EXIT TST 
TRAP C$EXIT 
«WORD 110023-. 
000001 003340 TST8: MOV #1, TESTS i INDICATES 1ST PART OF TST 8 
026174 64$: MOV #TRBUF ,RO ‘FORM COMMAND PACKET 
000002 MOVB #RSCHND .@RO =C 
000012 000001 MOVB &#RSMSIZ.1(RO)  :SIZE OF MESSAGE 
000012 000002 MOVB  &#RSSGET.2(RO) :GET CHARACTERISTICS 
000003 CLRB = 3(RO) ‘NO MODIF 
000004 CLR 4(RO) ‘NO DRIVE OR SWITCHES 
CLR 6(RO) 3NO SEQUENCE NUMBER 
000010 CLR 8. (RO) YTES 
000012 CLR 10. (RO) =NO RECORD # 
000012 MOV #RSMSIZ,R1 GET SIZE 
TST (R1)+ +2 FOR CHECKSUM 
016 000070 MOV #RSSNSZ, SNDCNT (RS) -SIZE TO SEND 
013520 CALL CHKSUM CHECKS 
MOV R1, (RO) INSERT INTO PACKET 
000001 000034 MOV #RSDATA, or mieal ZEXPECT DATA PACKET 
000034 000036 MOV WRSGCDP.XSCNT(R5) :THIS B 
000001 000032 MOV #1,XSPKNM(RS) AND 1 PACKET 
006556 CALL RSVP SRETURN TO SCHEDULER 
013654 CALL  DOBRK ZCLR POTENTIAL INTERFACE ERROR 
000010 BIT #B1T3,aR5 :RETRY?(BAD FLAG) 
BNE 64$ YES 
090002 003340 MOV #2, TESTS ZINDICATE 2ND PART OF TST 8 
026174 65$: MOV #TRBUF ,RO z7->(POINT TO) XMIT BUFFER 
900008 MOVB SCMNOD,aR COMMAND MESSAGE PACK 
000012 000001 MOVB &#RSMSIZ.1(RO) :THIS BI 
000001 000002 MOVB  &#RSSNIT.2(RO) OP CODE IS INITIALIZE 
000064 000012 MOV REC,10.(R :TO THIS RECORD 
000003 CLRB . (RO) [NO MODIFIER 
000004 CLRB = &.. (RO) =NO DRIVE 
000010 000005 MOVE #B1T03,5.(RO) :SET MRSP SWITCH 
000006 CLR 6. (RO) :NO SEQUENCE # 
000010 CLR 8. (RO) NO BYTE COUNT 
000012 MOV #RSMSIZ,R1 [GET COUNT 
TST (R1)+ [PLUS FLAG + BCNT 
*FOR CHECKSUM CALC 
013520 CALL § CHKSUM tRO=-->TOP  R1=# OF BYTES 
MOV R1, (RO) ‘INSERT INTO PACKET 





an 


b= hh =) =) =) ~ ) ~~) ~~) ~ | 


TEST 
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Og 3006 
5 025052 
5060 

3807 025066 
3808 
3809 025074 
AY 

11 
ig 025100 

Mz 025104 
3313 023106 
at 02511 
3817 025116 
3818 025124 
3819 025132 
3820 025140 
3821 025144 
3856 025150 
3823 025156 
3824 025162 
3825 025166 
3826 025172 
382 


3838 
3839 025236 
3840 025242 


3841 
3842 025244 
38435 025250 
3844 


3845 025254 


004737 


S S2S8=SSS=555 Se 
~ ANN UN 
FESESSSSIS NE 


—<—N ONY 
=—wWw NO 


on == 


oo-o & 

ad a > 3 —_ 

RNS S 
AXXO 
MW 


012746 


se 
3 


sgece 
SAaNN 
Waow 
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WN 
& 
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000010 


026174 
000012 


000001 
000002 
000012 


000005 


003310 


I 
/ TESTS MODIFIED RADIAL SERIAL PROTOCOL 


66S: 


139 


SEQ 0113 


PAGE 116-1 
“SET UP EXPECTATIONS: 
WRSSNSZ,SNDCNT(R5) <:HOW MANY T 
WRSCMND.XSFLG(RS) ;EXPECT END PACK 
WRSNDSZ.XSCNT(R5) :COUNT WITH THIS 
#1.,XSPKNM(RS) :EXPECT ONLY 1 PACKET 
RSVP 3s SEND 
[AND RETURN TO SCHEDULER 
#81T3,aR5 ZRETRY (FLAG BYTE ERROR)? 
65$ YES 
#TRBUF ,RO :=->(POINT TO) XMIT BUFFER 
#RSCMND ,aRO : COMMAND MESSAGE PACK 
WRSMSIZ.1(RO) THIS BIG 
WRSSNOP,2(RO) :OP CODE IS NO-OPERATION 
REC, 10. (RO) ‘TO THIS RECORD 
. (RO) :NO MODIFIER 
4. (RO) =NO DRIVE 
#B1T03,5.(RO)  ;SET MRSP SWITCH 
6. (RO) ‘NO SEQUENCE # 
8. (RO) ‘NO BYTE COUNT 
#RSMSIZ,R1 :GET COUNT 
(R1)+ [PLUS FLAG + BCNT 
[FOR CHECKSUM CALC 
CHKSUM tRO-->TOP  R1=# OF BYTES 
R1, (RO) ‘INSERT INTO PACKET 
“SET UP EXPECTATIONS: 
#RSSNSZ,SNDCNT(R5) ;HOW MANY TO SEND 
#RSCMND.XSFLG(RS) ;EXPECT END PACK 
#RSNDSZ.XSCNT(R5) COUNT WITH THIS 
#1.,XSPKNM(RS) ;EXPECT ONLY 1 PACKET 
RSVP SEND 
‘AND RETURN TO SCHEDULER 
#B1T3,aR5 ZRETRY (FLAG BYTE ERRGR)? 
66$ YES 
DONE 
TESTS 
pPsors :PROTOCOL SUMMARY @ END OF PASS 
UNI TNO *SET UNIT # TO ZERO 
#MSAGE 1 *PRINT HEADER 
MOV #ASAGE1,-(SP) 
MOV #1,-(SP5 
MOV SP.R 
TRAP  CSPNTF 
ADD #4,SP 
#BLKTBL .DEVPTR 7SET ALL UNITS 
@DEVPTR.R [GET POINTER 
TATUS(R5) 18 UNIT ABORTED 
MRSP(RS) ‘1S UNIT MODIFIED 
2s 3NO 





ooIoNMn 


E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
F 
F 
F 
F 
F 
F 
F 
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TEST 8 / TESTS MODIFIED RADIAL SERIAL PROTOCOL SEQ 0114 
3855 0 5334 PRINTF #MSAGE2,UNITNO ;MESSAGE FOR MODIFIED UNIT 
0 335 013746 02564 MOV UNI TNO, (SP) 
025340 12746 02552 MOV 5 =(SP 
029 344 012746 000002 MOV #2,-(SPS 
025350 910600 MOV , 
025352 10441 TRAP  CSPNTF 
025354 062706 000006 ADD #6,SP 
3856 025 00042 BR 4$ :SEE IF LAST UNIT 
57 025 23: PRINTF #MSAGE3,UNITNO “MESSAGE FOR NON-MODIFIED UNIT 
025 013746 025640 V UNI TNO, =(SP) 
025366 012746 025561 MOV #MSAGES -(SP) 
025372 012746 000002 MOV 2,=(SP) 
025376 010600 MOV $B°R0 
025400 104417 TRAP CSPNTF 
025402 062706 000006 ADD #6,SP 
3858 025406 12 BR 4$ sSEE IF LAST UNIT 
3859 025410 3$: PRINTF #MSAGE4,UNITNO MESSAGE FOR ABORTED UNIT F 
025410 013746 025640 MOV UNITNO -(SP) F 
025414 012746 025610 MOV SAGES , = (SP) F 
025420 012746 000002 MOV emery F 
025424 010600 MOV $B°R0 F 
025426 104417 TRAP — CSPNTF 
025430 062706 000006 ADD #6,SP F 
3860 025434 023727 003310 003364 4$: CMP DEVPTR,ALSTDEV iS THIS THE LAST DEVICE F 
3861 025442 1 BHIS NDT8 YES F 
3862 025444 062737 000002 003310 ADD #2,DEVPTR :GET NEXT UNIT : 
3863 025452 005237 025640 INC UNI TNO SINC UNIT # § 
3864 025456 000716 BR 1$ F 
3866 025460 000207 ENDT8: RETURN F 
3868 025462 ENDTST F 
025462 L10023: 
025462 104401 TRAP CSETST 2 
3870 025464 045 116 045 MSAGE1: .ASCIZ /2NZS8ZAUNIT rs pd4 pe enya Ob yeaa G 
3871 025525 045 116 045 MSAGE2: .ASCIZ !2NZS9%ZS2%012%S9ZS9ZARSP/ G 
3872 025561 045 116 045 MSAGE3: .ASCIZ PINESOLSOLOTESOTSOTARSP? G 
3873 025610 045 116 045 MSAGE4: ASCIZ /IN%S9%ZS2%01%S9%S9%ZA---/ G 
3875 025640 000000 UNITNO: .WOR G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
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PATCH AREA 


78 -SBTTL PATCH ARLA 

79 000144 «REPT 100. 
» WORD 

1 - ENDR 


SEQ 0115 





ZEFTF |QQNOL290222a 
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MISCELLANEOUS SECTIONS MACRO M1113 25-SEP-81 10:06 PAGE 120 
i/0 BUFFER AREAS: SEQ 0116 


-SBTTL 1/0 BUFFER AREAS: 


| 
| 
4 | 
;WHO=GETS-WHAT=SPACE TABLE 
026152 027232 BUFTBL: .WORD UFO | 
9 026154 030270 -WORD BUF1 
90 960128 031326 WORD BUF 
91 ose! 032364 - WORD 
92 026162 035422 -WORD BUF4 
3893 026164 034460 -WORD BUFS5 
3894 026166 035516 - WORD aA 
944 026170 036554 -WORD BUF 
3897 
3898 3 SS OS OSS SS SSS SS SE SS SS © OSS SS SS SS SES SSS SSE SSS SSS ES SE SS SFSSS SSE SSSSSSSSSSS2S2S2S22 
$000 ONLY 1 TRANSMIT BUFFER NECESSARY: 
3901 02617 023 -BYTE RSXOFF 
Son8 02617 023 -BYTE RSXOFF SEND XOFF BEFORE EVERY PACKET 
3904 026174 TRBUF: .BLKB RCBFSZ 
3905 3 SS SS SS SSS SS SSS SSS SSS SSS SS OS SS SSS SE SS SSS SES SSSS SSS SSE SS SS SSSS SS SSSS2 28222288 
3906 
3907 
3908 027232 BUFO: .BLKB RCBFSZ 
3909 030270 BUF1: .BLKB RCBFSZ 
3910 031326 BUF2: .BLKB RCBFSZ 
3911 032364 BUF3: .BLKB RCBFSZ 
3912 033422 BUF4: .BLKB RCBFSZ 
3913 034460 BUF 5 -BLKB = =RCBFSZ 
3914 035516 BUF 6 ~-BLKB = =RCBFSZ 
915 036554 BUF 7 ~BLKB = =RCBFSZ 
3916 
3917 P SOS SSS SS SC OSS SSS SS SSS SS © © © FS OS SS SS SS SSS SS FS SS SSS SSS SSS S SE SESS SS SSE SSS S2SES282S8S22 
3918 
3919 037612 ENDMOD 





PARAMETER CODING MACRO M1113 25-SEP-81 10:06 PAGE 122 
1/0 BUFFER AREAS: SEQ 0117 
3943 .TITLE PARAMETER CODING 
938 .SBTTL HARDWARE PARAMETER CODING SECTION 
3984 037612 BGNMOD 
985 
986 se 
987 : THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
988 : THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
3989 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
3390 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
991 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
3992 : WITH THE OPERATOR 
3994 
3995 037612 BGNHRD 
037612 000021 .WORD L10024-LSHARD/2 
037614 LSHARD:: 
3997 
3998 037614 GPRMA MSG1,0,0,160000,177777, YES 
037614 000031 -WORD TSCODE 
037616 037656 .WORD MSGI 
037620 160000 -WORD TSLOLIM 
037622 177777 .WORD TSHILIM 
3999 037624 GPRMA MSG1B,2,0,0,776,YES 
037624 001031 -WORD TSCODE 
037626 037667 -WORD MSG1B 
037630 000000 -WORD TSLOLIM 
037632 000776 .WORD TSHILIM 
4000 037634 GPRML MSG1C,6,1,YES L 
037634 003130 .WORD TSCODE 
037636 037704 .WORD MSGIC L' 
037640 000001 «WORD 1 L' 
4001 037642 GPRML MSG2,4,1,YES L 
037642 002130 .WORD TS$CODE L' 
037644 037722 .WORD MSG2 L' 
037646 1 .WORD 1 Lu 
4002 037650 GPRML MSG3,4,2,YES L' 
037650 002130 -WORD TSCODE L 
037652 037737 -WORD MSG3 L 
037654 2 «WORD 2 r 
4009 - 
4010 037656 ENDHRD L 
.EVEN L 
; 037656 110024: t 
4012 037656 12 125 065 MSG1:  .ASCIZ /TUS8 CSR/ L 
4013 037667 126 105 103 MSGIB: .ASCIZ /VECTOR ADOR. L 
4014 037704 120 104 124 MSGIC: .ASCIZ /PDT INTERFACE/ L 
4015 037722 124 105 123 MSGe: eASCIZ /TEST D L 
4016 037737 12 105 123 MSG3: “ASCIZ /TEST DRIVE 1/ 
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PARAMETER CODING MACRO M1113 25-SEP-81 10:06 PAGE 124 C. 
SOFTWARE PARAMETER CODING SECTION SEQ 0118 : 
£028  SBTTL SOFTWARE PARAMETER CODING SECTION t 
40 ; "THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS L' 
4031 : THAT ARE USED BY THE SUPERVISOR T I TABLES a 
4038 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS ol ARE ™ 
403 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTUR HE mI 
4034 3 MACROS ALLOW THE SUPERVISOR TO ESTABLISH LORMUNT CAT [ONS mi 
4035 : WITH THE OPERATOR. " 
4037 mi 
4038 037754 BGNSFT m 
037754 000031 -WORD L10025-L$SOFT/2 mM 
037756 LSSOFT:: mM: 
4039 037756 GPRMD MSG4,0,D,1777,8.,512..YES a 
037756 000052 -WORD TSCODE ” 
037760 040040 -WORD MSG4 mM 
037762 001777 «WORD 1777 M 
037764 000010 -WORD TS$LOLIM 4! 
037766 001000 -WORD TSHILIM m 
4040 037770 GPRML MSG4B,10,1,YES ‘a! 
037770 094130 «WORD TSCODE a 
037772 040105 «WORD MSG48 " 
037774 000001 WORD 1 m 
4041 037776 GPRML MSG5,2,1,YES al 
037776 001130 -WORD TSCODE 4] 
040147 -WORD MSGS 4 
040002 1 «WORD 1 M 
4042 040004 GPRML MSG6,6.1,YES mM 
040004 003130 -WORD TSCODE a 
0906 040201 -WORD MSG6 mM 
040010 1 . WORD mM 
4043 040012 GPRML MSG7,4,1,YES a 
040012 002130 «WORD TSCODE mM 
040014 040226 -WORD MSG7 M 
040016 1 «WORD My 
4044 040020 GPRMD MSG8,10.,D,377,1,254..YES M 
040020 005052 -WORD TSCODE mM 
040022 049254 WORD MSG8 mM 
040024 000377 «WORD 377 mM 
040026 000001 -WORD TSLOLIM M 
040030 000376 WORD TSHILIM mM 
4045 040032 GPRML MSG9,12.,1,YES Lal 
040032 006130 -WORD TSCODE mM 
040034 040315 WORD MSG9 Mal 
040036 000001 WORD 1 mM 
4052 040040 SFTOUT: ENDSFT aaa 7 
040040 L10025: M 
4053 040040 116 125 115 MSG4: .ASCIZ ‘NUMBER OF BLOCKS: TEST 4-7 (8 TO 512)' ' 
4054 040105 101 104 104 MSG4B: .ASCIZ /ADD DR # TO DAT. A PATTERN TEST 4-7/ N 
4055 040147 123 124 101 MSG5: .ASCIZ FSTATISTICS PRINTED AT EOP N 
4056 040201 103 117 115 MSG6: ASCIZ /COMPARE DATA ON RE N 
4057 040226 120 122 111 MSG7:  .ASCIZ /PRINT PACKET ON ERROR/ 
4058 040254 043 040 105 MSG8: .ASCIZ /# ERRORS = DVC FATAL IF ‘EVL'SET/ 
4059 040315 120 122 111 MSG9: “ASCH? /PRINT UNIT PROTOCOL SUMMARY (TEST 8)/ 
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PARAMETER CODING MACRO_M1113 25-SEP-81 10:06 PAGE 126 
SOFTWARE PARAMETER CODING SECTION SEQ 0119 

4063 000016 eREPT = 14. sLASTAD CORRECTION 

4064 » WORD 

4065 -ENDR 

4072 040416 LASTAD even 
040416 040436 -WORD TSFREE 
040420 000006 «WORD TSSIZE 
040422 LS$LAST:: 

arr 040422 ENDMOD 

4075 040422 BGNSETUP 1 

4076 040422 BGNPTAB 
040422 000000 -WORD 0 
040424 000004 WORD 110030-./2-1 
040426 L10026: 

4077 040426 176500 176500 

4078 040430 000300 300 
04 000003 

4080 040434 000000 0 

4081 040436 ENDPTAB 
040436 L10030: 

4082 040436 ENDSETUP 

4083 000001 ~ END 





ADD H BPMPMPMRDVDDVDVDVDDVDDVUVIUBDVVD BDUMCOOCOCOCOCOCOCOCONOONO OCZ2Z2Z2222222u4Y%O 
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PARAMETER CODING MACRO M1113 25-SEP-81 10:06 PAGE 126-1 C 
SYMBOL TABLE SEQ 0120 ; 
X= G S 010442 G CSMSG = 000023 ESTRY = 16 GSPRMA= 1 R 
gt 3 HKEND 011146 G CSOPEN= 600034 ESWLOC= 1 93 G GSPRMD= $0000 R 
ABOMSG Mies CHKERR Bt e2 CSPNTB= 14 ESWR = 177757 GSPRML= R 
" 0065 CHKPKS B10 52 G Fz 017 EVL = GSRADA= 140 R 
= a ty G CHKPTR 01055 CSPNTS= Oponie EVLTHR 2 GSRADB= R 
LGON 003356 G CHKREE O11 366 CSPNTX= B08 1 EXOFF 74 GSRADD= 000040 R 
ASSEMB= 000010 CHKRET 011670 C$Q10 = 000377 EXON 7424 GSRADL= 000120 R 
BDATA = 000134 G CHKSUC B1¢186 G C$RDBU= 7 ESEND = 4 G sat 
BOBYTS 014572 CHKSUM 013520 G CSREF G= 1047 ESLOAD= 5 GSXFER= 
BDCHK = 000022 G HK8 githoe CSRESE= 000033 FLGLOC 19636 G GSYES = 000010 
BDCOM = 000014 G CKCKSM 013614 G CSREVI= 000003 ‘s 15574 HARDR = 000136 G 
BITO = 000001 G CLRALL 005706 G CSRFLA= 000021 m0 15556 HARDW = 000140 G R 
BITOO = 000001 G LRBUF 005746 G CSRPT = 000025 FTLNM 2319 HELP = R 
BITO1 = 000002 G CLRPTR SSEF G= 46 = 44 HOE 1 G R 
BITO2 = 000004 G CMDSNT= 000100 G CS$SPRI= 000041 FSAUTO= 20 HRD 012772 R 
1T03 = 000010 G ER= 0G CSSVEC= 000037 = 000040 HRDRD = 16 G R 
BITO4 = 000020 G CMPDAT 002214 C$TPRI= speed FSCLEA= 000007 HRDWR = 000020 G R 
BITOS = 000040 G INIT= 000032 G ESC 14574 FSDU_ = 000016 HRD1 011612 A 
BIT06 = 000100 G AR 014414 G DEVPTR 003310 G FSEND = 000041 I = 010000 G 
BITO7 = 000200 G CSNRDY 003342 G Evo 003366 F = 000004 IDPTR 003322 G R 
BITO8 = 000400 G CSRCVB 003344 G DEV] 003600 = 00001 DU = 000040 G R 
BITO9 = 001000 G = 000052 DEV 004012 FSINIT= 000006 R_ = 020000 G R 
BIT1 = 000002 G CSAUTO= 000061 DEV. wees FS = 0000 INIT 016030 
BIT10 = 002000 G CSBRK = 000022 DEV4 004436 = 00 ITWD 014406 
BIT11 = 004000 G C$BSEG= 000004 DEVS 004650 FSMSG = 000011 INIT2 016056 
BIT12 = 010000 G C$8SUB= 00000 DEV6 005062 FSPROT= 000021 ISR = 000100 G 
BIT13 = 020000 G CSCEFG= DEV? 005274 FSPWR = 000017 IXE = 004000 G 
BIT14 = 040000 G CSCLCK= 000062 DFPTBL spate G FSRPT = 000012 ISAU_ = 000041 
BIT15 = 100000 G CSCLEA= 000012 DFTL1 012640 FSSEG = 00000 ISAUTO= 000041 
site = 000004 G CSCLOS= 000035 DIAGMC= 0 FSSOFT= 000005 ISCLN = 000041 
BITS = 000010 G c$ = 000006 LV = 000074 G $SRV = 000010 ISDU = 000041 
BIT4 = 000020 G CSCVEC= 000036 DOBRK OAs856 G FSSUB = 000002 ISHRD = 000041 
BITS = 000040 G CSDCLN= 000044 DONE 003320 = 14 ISINIT= 000041 
BIT6 = 000100 G C$D 000051 = 0 FSTEST= 000001 ISMOD = 000041 
BIT? = 000200 G CSDRPT= 000024 DRVCHK 002216 ais ISMSG = 000041 
BIT8 = 000400 G = 000053 EF .CON= Bones G 2 1088 ISPROT= 000040 
BIT9 = 001000 G CSEDIT= 000003 -NEW= 000035 G ANS 007150 G ISPTAB= 000041 
BLKEND= oes G CSERDF= 000055 -PWR= 000034 G GETHRD 0161 ISPWR = 000041 
BLKER 0033350 G CSERHR= 000056 EF .RES= 037 G GETPTR 007214 ISRPT = 000041 
BLKSIZ= CoO ele G 000060 EF .STA= 000040 G ETRS 017 ISSEG = 000041 
BLKTBL 003546 G CSERSF= 000054 ENDGP8 010114 GTAGIN 00746 ISSETU= 000041 
= 00 G CSERSO= 000057 ENDRSP 007076 GTBYTE p18 G ISSFT = 000041 
BRKPTR 014412 CSESCA= 000010 ENDT8 025460 TDOWN 01005 ISSRV = 000041 
BRKTO 014410 CSE 000005 ERRDES 913038 G TOK 772 ISSUB = sise'od 
KWD 014404 CSESUB= 000003 E = 17 oe0 G GTPKS1 7216 G I$TST = 1 
BUFTBL 026152 CSETST= 000001 ESCKS = 177757 G GTPKS8 7426 G JSIMP = 000167 
BUFO Og eae CSEXIT= 000032 ESCKSM= 177757 GTPTR 01021 LENGTH 002206 
BUF 1 0 44 C$GETB= onpgsS ESCMD = Ades! G TUM 7 LGOF ST= sp ld G 
BUF 031326 C$GETW= 0000 ESNCRT= 177767 G GSCNTO= LNCNT 014774 
BUF Oe7s3 c$ = 000043 ESNOMO= 177757 G SDELM= § LOE = 040000 G 
BUF 4 033422 CSGPHR= 00004 ESNONX= 177770 G GS$DISP= LOG 12500 G 
BUF 5 034460 CSGPLO= 00003 ESOK = 900000 G GSEXCP= 63 LOGO 13022 
BUF 6 035516 CS$GPRI= 000040 ESPART= 1 6G SHILI= LOGOK 1 
BUF? 036554 CSINIT= 000011 ESRD = 177757 GSLOLI= 1 LOGOK2 3! 65 
CARLF 015010 CSINLP= 000020 ESREC = 177711 G $NO_ = 000000 LOGO 12554 
CHECK 016140 CSMANI= 000050 ESSK = ere G GSOFFS= 000400 LOG] 01 $70 
CHKANR 010546 CSMEM = 000031 ESSLF = 177777 G GSOFSI= 000376 LOG2 012720 





PARAMETER CODING 
SYMBOL TABLE 


LOG 012760 
tDe3s 01800 

= 0000 
LSTDEV 003364 
LSACP 


o 
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MACRO M1113 25-SEP-81 10:06 PAGE 126-2 


L10001 04 MSQRSP 002776 G 
ete 4 MSREC_ 002716 G 
L1000 13224 MSRNIT 002534 G 
L10004 014312 MSSELF 362 G 
L10005 014346 MSSFRD 003052 G 
Lipo 015436 MSSFWR 003112 G 
L10007 016526 MSSKER OnSaeG G 
L10010 Hes: TOSN 030 G 
L10011 017020 MSUNIT 002654 G 
Lis 017064 MSWPRO 002512 G 
L10013 017146 SWRSP 002736 G 
L10014 017350 MXRTRY Bo 3386 G 
L10015 017622 NCART = 000054 & 
L10016 og ise6 NODRVS Bi6260 
L10017 022216 NOMOR 00653 
L10020 02300 NOMOT = 000030 G 
L10021 02377 NOREE 011200 
L1OSs 024556. NOUNIT= 000036 G 
L10023 02546 NOXOFF 006630 
L10024 037656 NTSFT 012702 
L10025 040040 NXTRET 006526 
L10026 040426 NXTST_ 006100 
L10030 0404 NXTST2 006350 
MABEE 012732 EFIL= 000001 
MODR 010116 OTL = 09001 
MRSDLY 010120 OVRFLO 013400 
MRSP_ = 000210 G OVRN_ = 00001 
MSAGE1 025464 SAPTS= 000000 
MSAGE2 025525 SAU = 000001 
MSAGES 025561 OSBGNR= 00000 
MSAGES 025610 OSBGNS= 000001 
MSAUTO 016762 O$DU_ = 000001 
MSBDA 002336 G OSERRT= 000000 
MSCMD 00 108 G SWw= 000001 
MSCOM 002402 G IN= 000001 
SG1 037656 OSSETU= 000001 
MSG1B 037667 TL = 000034 G 
MSGIC 037704 PATTEN= 000072 G 
SGe 037766 PDTFLG 016614 G 
MS 0377 DEV 006362 
MSG4 040040 TR = 000104 G 
MSG468 040105 T = 001000 G 
ge 
msc? 020926 PRDAT 014976 
MSG8 BeoGse PRF 015000 
MSG9 Bao 15 PRI = 002000 G 
MSHCHK $323 G PRIOO = 000000 G 
MSHDRD 003152 G PRIO1 = 000040 G 
M ooseie G 16 = 199 G 
MSNIT $16 G PRIOS = 140 G 
MSNLOG 20 G 104 = 4 00 G 
M 444 G PRIOS = 000240 G 
MSNOTP 466 G 106 = B05 00 G 
MSNRSP 762 G PRIO7 = G 
MSOVRN 005256 G PRNPAK bAae3 G 
MSPART 002632 G PRNSIZ 003534 G 


E 10 


ten 
S 


RECOV 
RETERR 012112 


RSDATA= 000001 G 
RSDNSZ= 000222 


IZ= 000012 G 
RSNDSZ= 000016 G 
RSNTAB 002224 
RSSEND= be G 
RSSGET= 000012 G 
RSSNIT= 0 1G 
RS = G 
RSSNSZ= 000016 G 
RSSRD = 000002 G 
RSSSEK= 000005 G 
RSSSLF= 76 

SSWR = 3G 
vP 6G 
RSXOFF= 000023 G 
XON = 020 G 
RTRYN 12050 
SAVCNT 000206 c 
SECREC 003339 G 
SERVST 19098 
TOR 5630 G 
SETLEN 016470 
SETPTR 0057 
SETSRV 0101 § 
TUP G 
SFPTBL 98 G 
T 1 


SF TOUT 
SFTRD 


00002 


= G 
SFTWR = 000004 G 


T 
TUVECT= 


jt AY) 
Of fSOOLS 


Senwnn 
ont 


Pte 
RNRSSF 


Sour 





SEQ 0121 
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PARAMETER CODING MACRO M1113 25-SEP-81 10:06 PAGE 126-3 
SYMBOL TABLE 
TSARGC= TSPTAB= 010027 TSSDAT= 0100 T 017352 
TSCODE= 1 TSPTHV= 1 TS$DU_= 01001 T 476 g 
T 146 TSPTNU= 1 TSSHAR= 010024 21230 
TSEXCP= TSSAVL= 1 ? T$ = 010001 T4TRY = 1 ‘ 
TSFLAG= TSSEGL= 177777 TSSINI= 010007 02222 
TSFREE= 040436 TSSIZE= T$ = 010003 T 0 
TSGMAN= 000000 TSSUBN= TS$PC spt T 023774 
TSHILI= 000376 TSTAGL= 17777 TSSPR 44 T8 024560 
TSLAST= 000001 TSTAGN= 010031 oe 01002 = 000200 
TSLOLI= 000001 = T$ = 01 44 013226 
TSLSYM= 010000 TSTEST= 10 1$$s0F= 01002 UNITNO 025640 
900010 TSTSTM= 177777 TSSSRV= 010005 012070 
TSNEST= 17777 TSTSTS= TS$SW = 0 UNSUC Barese 
TSNSO = = 010013 TSSTES= 01002 UNXPCT PGe8 
TSNS1_ = 000005 TSSAUT= 010010 T1 017150 G WAIT 014350 
TSPCNT= 000000 TSSCLE= 010011 TITRY = 000146 G 


- ABS. 040436 000 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 33777 WORDS Bs PAGES) 
DYNAMIC MEMORY: 21558 WORDS ( 82 PAGES) 


ELAPSED TIME: 00: 
CZTUUC ..BIN/EN: AMA: ABS, CZTUUC/CR/SP=LB1:(1,1ISVC/MLB,SY:C203,375ICZTUUC MAC 


WHCHDR 0135 
WRLOCK= 


SEES 
a = 
Sessn8ese 

SYFERSSNSRE 

AAQAAAG AQAAG 


XSTRUE= 000020 





cZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 PAGE 1 
or a REFERENCE REFERENCES CREF 
ABNDX = G #16-888 #72-2659 72-2672 72-2674 
ABO 5 4 os =2669 xi - e 72-2696 #7323943 
= 389 s #49-1799  #49-1816 49-1821  #49-1829 
— 
woe 003 $8 G #15- 7 “9% 1925 #91-3278 95-3370 
BDATA = 0001 G #17-940 89-3153 oo-aae 
BDBYTS 014572 *#86-3001 86-301 86-301 86-3020 
Ms 
= -— - 
BITO = 000001 G #10-640 ath 60-2193 72-2675 
BITOO = 000001 G #10-640 10-640 
BIT01 = 000002 G #10-640 10-640 
BITO2 = 000004 G #10-640 10-640 
BIT0$ = 000010 G #10-640 10-640 116-3795 116-3822 
BIT04 = 000020 G #10-640 10-640 
BITOS = 000040 G 10-640 10-640 
BIT06 = 000100 G #10-640 10-640 
BIT07 = 000200 G #10-640 10-640 
BIT = 000400 G #10-640 10-640 
BITO9 = 001000 G #10-640 10-640 
BIT1 = 000002 G #10-640 49-1781 4-1972 60-2194 
BIT10 = 002000 G #10-640 49-1779 50-1901 68-2478 
106-3597 108-3639 08-3639 110-3670 
BIT11 = 004000 G #10-640 3139 91-3215 91-3236 
BIT12 = 010000 G Hem 106-3596 06-3596 106-3596 
BIT13. = 020000 G 10-640 49-1769 49-1777 66-2381 
BIT14 = 040000 G #10-640 49-1805 49-1808 70-2599 
BIT1S = 100000 G #19-640 37-1613 49-1788 56-2014 
64-2302 68-2464 4h A 91-3261 
BIT2 = 000004 G #10-640 49-1776 49-1790 30-N3r8 
BITS = 000010 G #10-640 49-1767 60-2196 66-234 
106-3596 106-3 106-359 108-3639 
112-3701 §=.114-3732 = 116-3783 = 116-3812 
BIT4 = 000020 G #10-640 50-189 50-1899 2197 
BITS = 000040 G #10-640 50-1917 50-1919 60-2198 
BIT6 = 000100 G #10-640 2199 68-2469 68-2530 
84-2946 84-2954 86-3021 
BIT7 = 000200 G #10-640 60-2200 68-2498 68-2506 
BIT8 = 000400 G #10-640 39-1648 49-1771 50-1905 
BIT9 = 001000 G #10-640 7-1617 50-1889 68-2475 
BLKEND = p00 e os G #17-960 91-3253 
BLKER 003330 G #15-854 *50-1886 91-3286 
BLKSIZ = 000212 G #17-964 19-986 19-987 19-988 
KTBL 003346 G #19-974 37-1611 39-1645 41-1670 
89-3133 91-3210 91-3230 93-3335 
= 000400 G #10-640 
BRKPTR 014412 *82-2901 82-2909 82-2916 84-2967 
KTO 014410 *B2-2874 82-2883 82-2889 82-2899 
BRKWD 014404 -2888  #84-2977 


10 


#86-3030 


78-2786 


93-3337 
108-3639 


66-2393 


74-2731 
82-2902 


68-2512 
50-1914 
68-2502 


19-989 
45-1713 
97-3434 


#84-2981 
*82-2907 


78-2787 


68-2458 
68-2506 
112-3701 
108-3639 


68-2462 


108-3639 
82-2877 
82-2910 
68-2514 


8-2491 
0-2585 


19-990 
49-1763 
116-3849 


*84-2971 


78-2789 


68-2529 
68-2527 
114-3732 


108-3639 


110-3670 


82-2917 
68-2516 


68-2520 
91-3245 


19-991 
49-1800 


#84~-2980 


78-2800 


106-3596 


112-3701 


58-2118 
68-2460 


104-3565 
112-3701 


82-2933 


68-2527 
91-3243 


19-992 
58-2077 


SEQ 0123 


82-2875 


106-3596 


112-3701 
58-2142 
596 
112-3701 
82-2934 


19-993 
64-2300 


Are 


cZTUUC CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL V. 

BUF TBL $ 

BUFO 

BUF 1 030 

BUF 031326 
BUF 0 $i 

BUF 4 0 6 
BUF S 0344 

BUF 035516 
BUF 036554 
CARLF 015010 
CHECK 016140 
CHKANR 010546 
CHKANS 010442 G 
CHKEND 011146 G 
CHKERR 011252 
CHKPKS 010552 
CHKPTR 010550 
CHKREE 011324 
CHKRET 011670 
CHKSUC 012164 G 
CHKSUM 013520 G 
CHK8 010462 
CKCKSM 013614 G 
CLRALL 005706 G 
CLRBUF 005746 G 
CLRPTR 006000 
CMDSNT = 000100 G 
Cc R = 000040 G 
CMPDAT 002214 
CNINIT = 000032 G 
COMPAR 014414 G 
CSNRDY 003342 G 
CSRCVB 003344 G 
C$AU = 000052 
C$AUTO = 000061 
C$SBRK = 000022 
CSB8SEG = 000004 
C$8 = 00000. 
CSCEFG = 00004 
CS$CLCK = 00006 
CSCLEA = 00001 
C$CLOS = 00003 
C$CLP1 = 000006 
CSCVEC = 000036 
CS$DCLN = 000044 

Cc = 000051 
CSDRPT = 000024 
C$DU = 000053 





MACRO ON 25-SEP-81 AT 10:08 


REFERENCES 
7 so2SaK8 4150-3908 
120-3889 #120- 309 
120-3890 4120-3910 
150-3891 #130-3911 
120-3892 #120-391¢ 
150-3898 | #120-391 
130-3894 #120-3914 
190-3895 #120-3915 
88-3039 88-3061 488-3070 
91-3220 491-3225 
2298 64-2310 064-2314 
47-1738  #64~9292 
66-2570 66-2418 #68-2655 
Sono ee Hee ot08 966-2344 
086-5500 84-5391 "60-5309 
68-2461 468-2482 
~54 68-2471 68-2476 
#68-2529 


68-2463 68-2482 #70-2564 


#78-2784 80-282 102-3547 
108-363 108-3639 108-3639 
114-3732 116-3773 116-3801 
06-5693 #64-2300 
66-2563 96-<60! 66-2413 

#41-1670 4-1975 
41-16 #43-1688 54-1978 

*41-1670 41-1671 41-1673 

#16-913 *50-1898 70-2571 

#11-675 70-2609 

566 -3003 
#11-672 82-2929 
2379 66-2403 #86-2998 

#15864 52-194 

#15-865 se 

#5-451 99-347: 

#5~451 93-3346 

#5-451 47-1736 49-1824 
89-3135 89-3137 

#5-451 

#5-451 

#5-451 

#5-451 

#5-451 95-3395 

#5-451 

#5-451 

#5-451 82-2935 82-2937 

#5-451 49-1826 91- oe8 

#5-451 72-2714 93-3557 

#5-451 95-3374 

#5~451 97-3433 


PAGE 
CREF 


2 


*64-2311 
68-2477 


104-3565 
110-3670 
116-3828 


#80-2824 


52-1947 


#64~-2316 
68-2481 


106-3596 
110-3670 


#43-1698 
70-2588 


62-2252 


68-2499 68-2507 68-2515 

106-3596 106-3596 106-3597 
112-3701 112-3701 112-3701 
74-2737 *82-2876 

82-2879 84-2969 84-2970 


SEQ 0124 


68-2517 


106-3597 
114-3732 


89-3132 





I 10 


cZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 PAGE 3 C 
SYMBOL CROSS REFERENCE CREF SEQ 0125 $ 
SYMBOL VALUE a $ 
CSEDIT = B00 008 #5-451 o5e3e T 
CSERDF = 0000 #5~451 - 668 1g 3986 T 
CSE = 000056 #5-451 72-2695 72-271 T 
CSERRO = 000060 #5~451 
CSERSF = 000054 #5-451 49-1823 91-3227 91-3247 
CSER = 000057 #5-451 72-2688 72-2706 86-3019 1 
CSESCA = 000010 #5-451 
CSESEG = 000005 #5-451 T 
CSE = 000003 #5-451 T 
CSETST = 000001 #5-451 102-3552 104-3579 106-3621 108-3653 110-3684 112-3715 114-3746 116-3868 T 
CSEXIT = 000032 #5-451 102-3545 104-3559 106-3589 108-3629 110-3660 112-3691 114-3722 116-3758 T 
CSGETB = 000026 #5-451 
CSGETW = 000027 #5~451 T 
C = 000043 #5-451 T 
C = 000042 #5-451 91-3234 T 
C$GPLO = 000030 #5-451 1 
CSGPRI = 000040 #5-451 T 
CSINIT = 000011 #5-451 91-3315 T 
CSINLP = 000020 #5-451 T 
CSMANI = 000050 #5-451 T 
CSMEM = 000031 #5-451 T 
CSMSG = 000023 #5-451 74-2744 T 
CSOPEN = 000034 #5-451 1 
CSPNTB = 000014 #5-451 68-2504 74-2734 74-2737 74-2740 86-3020 1 
CSPNTF = 000017 #56. ta59 88-3054 88-3059 88-3061 93-3354 97-3413 116-3848 116-3855 116-3857 ; 
CSPNTS = 000016 #5-451 89-3134 89-3136 89-3152 89-3153 89-3163 
CSPNTX = 000015 #5-451 68-2480 68-2485 68-2488 68-2490 68-2511 68-2519 1 
C$Q10_ == 000377 #5-451 
C$R = 000007 #5-451 
CSREFG = 000047 #5-451 91-3207 
CSRESE = 000033 #5~-451 #5-451 
CSREVI = 000003 #5-451 5-494 
CSRFLA = 000021 #5-451 91-3285 
C$RPT = 000025 #5-451 89-3176 
CSSEFG = 000046 #5-451 
cs = 000041 #5-451 82-2894 
C$SVEC = 000037 #5-451 82-2895 82-2897 93-3334 
CSTPRI = 000013 #5-451 
ESC 014574 =3020 #86-3031 
DEVPTR 003310 G #15-846 #49~-1763 49-1764 49-1794 49-1796 49-1800 49-1801 49-1817 49-1819 

a tr 10 ot lep tage 91-3219 91-3221 +*91-3230 91-3232 91-3279 116-3849 116-3850 
DEVO 003366 19-974 #19~-986 
DEV1 003600 19-975 #19-987 
DEV2 004012 19-976 #19-988 
DEV3 004224 19-977 = #19989 
DEV4 0044 19-978 #1 
DEVS 004650 19-979 #19-991 
DEV6 005062 19-980 #19-99 
DEV? 005274 19-981 #19-99 
DFPTBL 002174 G #8-539 





cZTUUC CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VAS 
DFTL1 012640 
DIAGHC = 000000 
DLV = 000074 G 
DOBRK 013654 G 
DONE 003320 G 
OR = 000060 G 
DRVCHK 002216 
F.CON = 000036 G 
~NEW = 000035 G 
-PWR = 000034 G 
EF.RES = 000037 G 
EF.STA = 000040 G 
ENDGPS 010114 
ENDRSP 007076 
ENDTS 025460 
ERRDES 013034 G 
ESABO = 177720 G 
ESCKS = 177757 G 
ESCKSM = 177757 
ESCMD = 177720 G 
ESNCRT = 177767 G 
ESNOMO = 177737 G 
ESNONX = 177770 G 
ESOK = G 
ESPART = 177776 G 
ESRD = 177757 
ESREC = 177711 G 
Sok = 177740 G 
ESSLF = 177777 G 
ESTRY = 1 G 
ESWLOC = 177765 G 
ESWR = 177757 
EVL = G 
EVLTHR 002220 
EXOF F Onnes 
EXON 007424 
ESEND = 0021 
ESLOAD = 00003 
FLGLOC 016616 G 
FM 015574 
FMO 015556 
FTLNM 003316 
F SAU = 000015 
FSAUTO = 000020 
FSB8GN = 000040 


MACRO ON 25-SEP-81 AT 10:08 


REFERENCES 
“Peng680 St 5 a 
5-451 ‘¢ 1 
#16-911 - 034 
3 E 
84-2957 84-2959 
49-1787 9-180 
#15-850 #45-1712 
#114-3743 *116-3842 
=904 37-1615 
91-3239 91-3243 
108-3639 108-3639 
{ieee se 114-3732 
56 108-3636 
#10-640 
#10-640 
#10-640 
#10-640 
#10-640 91-3207 
58-2076 58-2160 
50-1875  #50-1927 
116-3846 116-3861 
72-2668 72-2682 
#12-734 
#12-745 12-747 
#12-747 
#12-743 70-2607 
#12-735 70-2602 
#12-742 70-2578 
#12-736 70-2612 
#12-737 70-2566 
#12-738 70-2622 
#12-749 
#12-744 70-2627 
#12-739 70-2596 
#12-746 
#12-740 70-2569 
#12-741 70-2617 
#12-748 
0 72-2676 
568 72-2678 
#56-2049 2151 
56-2005 #56-2048 
#5-451 
#5-451 5-494 
72-267 #91-3285 
89-315 89-3163 
89-3152  #89-3183 
#15-849 eg 444 
#5-451 99-3455 
#5-451 93-3332 
#5-451 477 
89-3117 89-3124 


10 


PAGE 4 
CREE SEQ 0126 

#72-2682 72-2682 

58-212 58-2144 62-2233 2-2234 2-2235 62-2237 62-2258 
“8-8 $3 66-2383 4-2738 (33 40 *#74-2741 84-2955 84-2956 
hs 7 Hh 308) 

47-1732 *102-3548 *104-3570 *106-3612 *108-3650 *110-3681 *112-3712 
37-1617 39 #37-1619_ - #39-1647 be tre 74-2734 76-2765 
91-3245 104-3565 106-3596 596 19¢- 597 106395) 108-3638 
110-3669 110-3670 110-3670 112-3700 112-3701 112-3701 114-3731 
110-3667 112-3698 114-3729 
#58-2162 
#116-3866 

72-2688 72-2695 72-2706 72-2710 4 #74-2727 86-3019 

12-748 12-749 70-2583 

62-2245 

58-2093 62-2253 62-2265 
#91-3324 
#89-3186 

99-3478 

93-3346 

6-503 9-580 40-633 74-2727 84-2944 84-2952 88-3073 
89-3192 91-3202 93-3332 95-3369 97-3405 99-3455 102-3540 
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CZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 Once 6 


— CROSS REFERENCE SEQ 0128 


( 
¢ 
YMBOL Vv REF ERENCES c 
GSHILI = 2 1 
a | 
= 
GSOFFS = 000400 #5-451 122-3998 122-3999 122-4000 122-4001 122-4002 126-4039 124-4040 124-4041 1 
124-4062 136-4063 126-4044 124-404 1 
GSOFSI = 000376 65-451 192-3998 192-3999 132-4000 122-4001 122-4002 124-4039 124-4040 124-4041 1 
124-4062 194-4043 194-4044 126-4045 : 
CSPRMD = 900002 ett 1$¢-2539 134- One 
r 4 — 
GSPRML = 000000 #5-451 192= 192-4001 122-4002 124-4060 126-4041 124-4042 126-4043 124-4045 1 
GSRADA = 000140 #5-451 1 
GSRADB = 000000 #5-451 
GSRADD = 00040 #5-451 124-4039 124-4046 
GSRADL = 000120 #5-451 132-4000 122-4001 122-4002 124-4040 124-4041 126-4042 124-4043 124-4045 1 
GSRADO = 000020 #5-451 139-3998 129-3999 1 
GSKFER = 000004 #5-451 1 
GSYES = 000010 #5-451 122-3998 122-3999 122-4000 122-4001 122-4002 124-4039 124-4040 124-4041 1 
124-4042 134-4063 126-4064 124-4045 
HARDR = 000136 G  -#17-941.. 89-3148 89-3158 1 
HARDU = 000140 G 417-9462 «89-3150 «89-3160 1 
HELP = 000000 5=4 5-446 5-468 5-486 -509 7-524 8-546 9-571 #10-585 1 
10-6 19-642, 19-994 19-1000 t-1016 at~1021t-102g 2-19 21-1041 1 
21-1047 37-1543 «37-1585. «37-1560 «37-1566 «87-1571 «$$ 7-1577 «37-1585 «37-1592 1 
$7-1598 37-1604 #89-3079 91-3293 91-3303 «95-3376 «95-3383. «97-3415. «97-3427 t 
99-3458 99-3464 #100-3484 100-3525 100-3531 120-3920 120-3925 120-3935 #122-3946 t 
122-4006 122-4020 124-4046 126-4066 ( 
HOE = 100000 G  —«-#10-640 ( 
HRD 012772 72-2700 #72-2708 ( 
HRDRD = 000016 G #11-666 68-2522 ( 
HRDWR = 000020 G 411-667 68-2594 ‘ 
HRD1 011612 68-2509  #68-2518 \ 
1BE = 010000 G  #10-640 \ 
IDPTR (003322 «G@)~=Stsi«#15@BS1 #4541713 G5"1716 451716 845-1718 \ 
I s 6 ¢ #10-640 \ 
IER = 020000 G = #10-640 
INIT 016030 #91-3206 ) 
INITWD 014406 82-2873 82-2900 82-2908 82-2915 82-2922 82-2928 484-2978 } 
INIT2 016056 91-3208  #91-3210 
ISR = 000100 G  #10-640 
IXE = 906000 G #10640 
ISAU—-=-000041 45-451 -#99~3455 7 
ISAUTO = 000041 45-451 -#93-3332 -#93-3346 
ISCLN = 000041 45-451 -#95-3369 -#95-3395 
1800. = 000041 95-451 -#97=3405. #97-343 
ISHRD = 000041 #122-3995 #122-4010 
ISINIT = 000041 #5-451  #91-3202-#91-3315 
1$M0D = 000041 #5-451 5-47 45-477 9-580 #9-580 10-633 #10-633. «88-3073. -#88-3073 
89-3117 #89-3117 89-3192 #B9-3192 102-3540 #102-3540 120-3919 #120-3919 | 122-3984 
#122-3984 | 126-4073 #126-4073 
ISMSG = 000041 95-451 #74-2727 #762746 
ISPROT = 000040 #5-451 6-503 
ISPTAB = 000041 95-451 126-4076 #126-4076 126-4081 #126~4081 





czT 
SYMBOL CROSS REFERENCE 
SYMBOL VAL 


He 


ast a a et St 


S38 
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—_ 
& 
no 


oe 
3 
aa ao 


s 


oSoooceooco oO 
ahabaiaiababatad ad 


DAQAQAAAAGAAQAAAIAGAAAAAAAG Ac 





72-2679 
*72-2687 
*72-2709 

37-1621 

91-3219 


#99~3455 
#93-3332 
#95-3369 


#5-496 


#7-522 


#97-3405 
#21-1014 





MACRO ON 25-SEP-81 AT 10:08 


ab (40 14 


9196-4075 


#116-3868 


#88-3066 
66-2366 
82-2886 

#72-2715 

#72-2684 


#72-2688 


#72-2710 


39-1651 
93-3341 
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CREF 


106-3587 
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CZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 on 8 


SYMBOL = REFERENCE SEQ 0130 


SYMBOL ALS or ERENCES 
LSETP 002102 G #5-494 
LSEXP1 046 G #5-494 
LSEX 064 G #5-4694 
LSEXPS 066 G #5-494 
L 614 G gt 122-3995 #122-3995 
LSHIME 120 G 494 
LSHPCP 638 G 45-494 
LSHPTP 0020 G 45-494 
LSHW 002174 G ~494 8-539 48-539 
LSICP 002104 G #5-494 
LSINIT 016050 G 5-494 #91-3202 
LSLADP 0020 § G #5-494 
LSLAST 0404 G $7232 #126-4072 126-4082 
L$L pos! G #5-494 
LSLUN 002074 G #5~-494 *72-2657 *72-2658  +*86-3017 86-3018  *91-3233 
LSMREV 002050 G #5-494 
L 002 G 5-494 
LSPRIO 002042 G 5-494 
LSPROT 002142 G 5-494 #6-503 
LSPRT 002112 G 5-494 
LSREPP 002 G #5494 
LSREV st: G 45-494 
LSRPT 015014 G 5-494 #89~3124 
LSSOFT 037756 G 5-494 124-4038 #124-4038 
LSSPC 0020 G 45-496 
LSSPCP 002020 G #5-494 
LSSPTP 002024 G #5~-496 
LSSTA 002050 G 5-494 
0022 G 5-494 9-561 #9~561 
LSTEST 002114 G 45-494 
LSTIML 002014 : 45-496 





#5~-494 91-3225 91-3281 
L10001 2204 8-539 #8-55 


See= 


L1 $554 9-561 #9-578 

1 013224 474-2744 

L10004 0143 484-2948 

L10005 014 orenGs 1 

L10006 015436 #89~-3176 

L10007 016526 #91-3315 

L10010 016724 #93~3346 

L10011 017020 #95~3395 

L10012 017064 497-3433 

L10013 017146 3478 

L10014 017350 102-3545 #102-3552 
L10015 017622 104-3559 #104-3579 
L10016 021226 106-3589 #106-3621 
110017 «022216 108-3629 #108-3653 
L10020 023002 110-3660 #110-3684 
L10021 023772 112-3691 #112-3715 
OSs 024556 114- #114-3746 
L1002 beoeGe 116-3758 #116-3868 
L10024 037656 122-3995 #122-4010 


= B2Brrtoo2z ena 
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cZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 PAGE 9 
SYMBOL CROSS REFERENCE CREF SEQ 0131 


SY REFERENCES 
C1oees *beb040 cne038 #1246-4052 
10026 040426 #126-4076 
L100 04 126-4076 41 ase" 
mee Siete | ea 
MRSDLY 010120 128-5193 538-3156 958-2166 
mRSP_ = 000210 G ~—s #i7= 50-1874 58-2074 64-2306 *66-2377 *66-24617*91-3277 116-3853 
MSAGE1 025464 116-3848 #116-3870 
MSAGE2 025525 16-3855 #116-3871 
MSAGES 025561 116-3857 #116-387 
MSAGES 025610 116-3859 #116-387 
MSAUTO — 016768 93-3354  #93-335 
MSBDA 002336 G #14-78 86-3019 
MSCMD 00270 13-773 #14-810 

C 002402 13-763 -#14-79 

G1 037656 2=3998 #122401 
MSGIB 037667 32-3999 #122401 
MSGIC 0377 24000 #122-4014 

G2 037722 23-4001 #122=4015 
MSG3 0377 24002 #122-401 
MSG4 04004 46-4039 #124~405 
MSG4B 040105 
MSGS 040147 64-4041 #126-4055 


4 
-757 Fah #14-786 


002444 -769 #14-79 
MSNOTP 002462 3-779 #14-796 
SP 002762 -777 #14~816 
003256 ~762 #14830 

MSPART 002632 3-771 #14-30 
3-761 #14-81 


Nm 

N 

_ 

oa 
ADAAAADAAAAIAIAIAAIAIAAAAAAG 


SFWR 003112 13-759 414-824 
MSSKER eh tas 13-767 #14-784 
MSTOSN 3 13-780 #14-820 

IT 002654 13-77 #14-80 
MSWPRO 002512 13-76 #14-79 
MSWRSP 002736 13-77 #14-814 
MXRTRY 003326 #15-85 68-2508 
NCART = 000054 #11-680 $0 $888 
NODRVS 0165 91-3247 #91-3320 
NOMOR 9 #49-1830 





PT 
RCBCNT 
RCBF SZ 


RCDB 
RCFLG 
RCINIT 


CREATED BY MACRO ON 25-SEP-81 AT 10:08 


CROSS REFERENCE 
VALUE 
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L] 
Ss 
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—N— 
Arms 
AAG a 


me Cnees 
#11-671 


68-9459 


5-84 
#11-662 


70- 780 
age 46 

0-2614 
#72-2691 


*110-3669 
1 8 


49-1820 
#50-1890 


116-3845 
3049 
88-3054 
#88-3068 


82-2894 


*56-2012 
66-2394 


c 11 
PAGE 10 
CREF 

#49-1827 

4-432 5-433 5-472 
99-3480 100-3481 100-3492 
5-494 

5-494 

5-494 

5-494 

5-494 
45-484 5-484 = #5=4.84 
5-494 126-4072 

86-3010. *91-3272  # 106-3595 
#112=3697  *112=3700 112-3701 
#91-3323 

58-2096 58-2148 58-2150 
488-3067 

82-2895 82-2897 93-3334 
*88-3055 
97-3438  #97-3441 
#56-2022 #562027 *56-2031 
66-2361 66-242 

120-3904 120-3908 120-3909 

2-2258 82-2893 84-2955 

6-2018 58-2088 58-2104 


9-581 
121-3941 


#5-484 


106-3596 
*114-3728 


*66-2352 


*58-2090 
120-3910 


*91-3264 
*66-2555 


10-582 
122-3942 


#5-484 


*108-3635 
#114-3731 


86-3002 


#58-2109 
120-3911 


10-595 
122-3956 


5-484 


*108-3638 


88-3051 


*58-2113 
120-3912 


88-3075 


5-494 


108-3639 


*58-2115 
120-3913 


SEQ 0132 | 
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#112-3689 


82-2910 
*108-3639 


*106-3596 
~3639 


#106-3596 


enn 


| 
SEQ 0141 | 


106-3589 106-362 
112-3691 =. 112-371 


we 


82-2933 
#108-3639 


84-2946 
*108-3639 
#106-3596 


110-3670 
#116-3805 


10-3386 #112-3701 


CZTUUC 
MACRO CROSS REFERENCE 
MACRO NAME REFERENCES 
BGNAU 
BGNAUT 93-33 
BGNCLN #95-336 
BGNDU #97-3405 
BGNHRD 122-3995 
BGNHW 8-539 
BGNINI gleggve 
BGNMOD V4 
BGNMSG #74~2727 
BGNPRO 503 
BSNPTA #126-4076 
BGNRPT 312 
BGNSET #126-4075 
BGNSFT #124-4038 
BGNSRV 44-2944 
BGNSW 561 
BGNTST 102-3543 
BNCOMP 91-3208 
BREAK 47-17 
CLRVEC 82-293 
DESCRI ~496 
DEVTYP #21-1014 
DISPAT ~522 
DOCLN #49~-1826 
DODU 72-271 
DORPT 95-3374 
ENDAU 99-347: 
ENDAUT #93-3346 
ENDCLN 95-3395 
ENDDU 97-3433 
ENDHRD #122-4010 
ENDHW 8-552 
ENDINI #91-3315 
E ~580 
ENDMSG 74-2744 
ENDPRO ~507 
ENDPTA 126-4081 
ENDRPT #89-3176 
ENDSET #126-4082 
ENDSFT 124-405 
ENDSRV on 
ENDSW 578 
ENDTST 102-3552 
EQUALS 10-640 
ERRDF 72-2668 
ERRHRD #72~2695 
ERRSF #49~1823 
ERRSOF 72-2688 
EXIT #102-3545 
D 91-3234 
GPRMA #122-5998 
GPRMD 124-4039 


a11 


CREATED BY MACRO ON 25-SEP-81 AT 10:08 oaer 20 


10-633 89-3117 102-3540 122-3984 


84-2952 
104-3557 106-3587 108-3627 110-3658 112-3689 114-3720 116-3751 
49-1824 36-10 62-2252 82-2879 84-2969 84-2970 89-3132 89-3135 


#91-3228 #91-3248 
357 


88-3073 89-3192 120-3919 126-4073 


484-2961 
104-3579 106-3621 108-3653 110-3684 112-3715 114-3746 116-3868 
7. ~3686 

#72-271 

#91-3227 #91-3247 
raceeee 86-3019 

#104~3559 #106-3589 #108-3629 #110-3660 #112-3691 #114-3722 #116-3758 


#122-3999 
124-4044 


89-3137 


SEQ 0142 | 








ZTUUC 
















MSDATA 


MSDECR 


MSDEFA 


MSENDE 


MSERRi 
MSEXCP 
MSEXIT 
MSEXSE 


MSEXTJ 
MSGEN 


C CREATED BY 
MACRO CROSS REFERENCE 
MACRO NAME REF 


pease 


#9-561 
484-2944 


#122-4001 


#9-561 
484-2944 


MACRO ON 25-SEP-81 AT 10:08 


#122-4002 


#9~-578 
484-2948 





PAGE 21 
CREF 


#124-4060 #124-4041 #124-4042 


#72-2710 
#122-3999 


104-3559 


#9-578 
484-2948 


#106-3589 
#116-3758 
#122-4000 
#1244041 


#68-7488 
#74~2734 


#106-3589 
#116~ 758 


539 
#3121014 
; 4-2952 


4124-4041 


484-2961 
#104-3579 


122-3999 
106-3589 





#124-4043 


#108-3629 


#122-4001 
#1244042 


#120-3919 


#122-4001 
#124-4042 


#88-3973 
#106-3621 


ore 8Soo 
~3227 
#124-4039 
#108-3629 


0115-3288 
#114-3722 
#5-494 


” 
#742727 
#84~-2961 


#124-4045 


108-3629 


Saar 
124-4042 


120-3919 


#122-4001 
#124-4042 


#89-3176 
#108-3653 


#72-2688 

#91-5227 
124-4039 
108-3629 


#116-3758 
#116-3758 
#5-494 


484-2961 


#110-3660 


122-400 
124-404 


#74-2744 
#89-3192 
#99~-3478 
#110-3684 
#122-4010 
#122-400 
#124-404 


#89-3192 
#110-3684 


#72-2695 
#91-3247 
124-4039 


#110-3660 


#74~2744 
#89-53124 


SEQ 0143 


110-3660 


122-400 
124-404 


74-2744 
89-3192 
99-3478 
110-3684 
122-4010 
#122-4002 
#124-4045 
#91-3315 
#112-3715 
#72-2695 
#91-3247 
#124-4044 


110-3660 


#9~ 
#742744 
#89~3124 





B 12 
CZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 ow 9 22 
mACRO CROSS Me ENE TERENCES SEQ 0144 
aio 178 #89-3171 #91- fle #91-3315 = #91-3315 a. 3 3-323 plat te lat rey 
S- 6 #95- #95- 195 #97- 7- #97- $97 4 #99~345 £99-3458 
#102-3543 At tae #102-3552 #102- 236 106-3557 104-3557 4104-3579 #104-3579 
#106-3587 wise 587 #1 #1 #108-362 108-3627 #108-3653 #108-3653 #110-3658 #110-3658 
0- #11 #112-3689 #112- 112-3715 112-3715 9 4114-3720 = 8114-3720 9 4114-376 Abate: 
16- #116-3751 = #116-3 $8 #116-38 #122-3995 #122-3995 #122-4010 4122-4010 #124-40 #124-40 
#124-4052 #124-4052 8126-4072 #126-40 #126-4076 #1 954076 #126-4081 Gad 
MSGETS =507 6-507 #8-552 8-55 #9-578 9-578 #9-580 9-580 474-2744 89-3192 
#84-2948 oe-908 #84-2961 84-2961 woe 390 8 “3003 #89~- 176 9-317 #89-3192 
#91-331 91-3315. #93-334 93- 2290 #95-339 95-3395 #97-343 7-343 499-3478 3478 
#102-355 198-3938 #104-3579 199-39 #106-3621 106-3621 108-3653 108-3653 #110-3684 110-3686 
#112-371 112-3715 9 #114-374 114-3746 #116-3868 116-3868 4120-3919 120-3919 #122-4010 122-4010 
#124-4052 124-4052 #126-407 126-407. 
MSGETT rb he ee #106-3559 #106-3589 #108-3629 #110-3660 #112-3691 4114-3722 #116-3758 
MSGNGB #5-477 45-496 5-494 5-494 #5-494 #5496 #5-494 #5-494 #5-494 #5-494 
#5-494 #5~-494 #5-494 #5-494 #5-494 #5-494 #5-494 #5494 #5-494 5-496 
#5-494 45-494 #5~-494 #5-494 #5~-494 #5~-494 #5-494 #5-494 #5-494 45-494 
#5-494 #5-494 #5-494 #5-494 #5-494 #5-494 #5-494 45-494 5-494 45-494 
45-494 #5-494 #5-494 #5-494 #5-494 #5-494 #5-494 #5-494 #5-494 
45-494 #5-494 #5-494 #5-494 #5-494 #5-494 #5494 #5-494 45-494 #5-494 
#5-494 #5-494 45-494 #5-494 #5-494 #5-494 5-494 #5-494 5-494 #5-496 
#5~-494 #5-494 #5~-494 #5~-494 45-494 #5-496 5-494 #5-496 #5-496 #6-503 
#6-503 #7-S22 #7-522 #8-539 #8-539 #8-539 #9~-561 #9-561 #9-561 #10-633 
#21-1014 #21-1014 #74-2727 ort hehe #842944 884-2944 884-2952  #84-2952 #89-3117 #89-3124 
#89-3124 ~320 3202 #93-333 493-3332 895-3369 895-3369 497-340 #97-3405 #99-3455 
#102-3540 #122-3984 #122-3995 #122-3995 #124-4038 4124-4038 #126-4072 #126-4072 
MSGNIN #5~-494 5-494 5-494 5-494 5-494 5-494 #5-494 5-494 #5~-494 5-494 
#5-494 5-494 #5~-494 5-494 #5~-494 5-494 #5-494 5-494 45-494 5-494 
45-494 5-494 #5-494 5-494 #5~494 5-494 #5-494 5-494 #5-494 5-494 
#5-494 5-494 #5-494 5-494 #5-494 5-494 #5-494 5-494 5-494 5-494 
5-494 #5-494 #5-494 5-494 #5-494 5-494 #5-494 5-494 5-494 
#5-494 5-494 #5-494 5-494 #5-494 5-494 #5-494 5-494 #5-494 5-494 
45-494 5-494 #5-494 5-494 #5-494 5-494 #5-494 494 5-494 5-494 
#5-494 5-494 #5-494 5-494 #5-494 5-494 #5-494 5-494 #5~-494 5-494 
#5~-494 5-494 #5-494 5-494 #5-494 5-494 #5~494 5-494 5-494 
#5-496 #5-496 5-496 5-496 #7-S22 7-522 #7-522 7-522 #7-522 7-522 
#7-522 7-522 #7-522 7-522 #7-522 7-522 #7-5 7-522 #7-522 7-522 
#7-522 ~522 #8-539 - #9-561 9-561 #21-1014 #21-1014 21-1014 21-1014 
#47-1736 47-1736 #49-1823 = #491823 49-1823 #49-1823 49-1823 #49-1823 49-1823 #49-1823 
49-1823 #49-1824 49-1 #49~-1826 49-1826 =#52-1947 52-1947 em stt} 62-2252  #68-24 
#68-2480 68-2480 68-2480 68-24 ttt 6 ~$280 oon seee #68-2480 68-2480 68-2480 
#68-2485  #68-2485 68-248 #68-248 $3 485 #68-2485 68-2485 2485  #68-2485 68-2485 
68-2485 68-2488  #68-2488 68-2488  #68-2488 68-2488 68-2488  #68-2488 68- 68-2488 
#68-2490  #68-2490 68-2490  #68-2490 68-2490 68-2490  #68-2490 68-2490 68-2490  #68-2504 
2504 68-2504  #68-2504 ~2504 68-2504 #68-2504 68-2504 2504 #68-2511 #68-2511 
68-251 #68-2511 68-251 #68-2511 68-2511 68-2511  #68-2511 68-2511 $s 511 #682519 
#68-2519 8-2519 68-2519 =2519 68-2519  #68-2519 68-2519 8-2519  #72-2668  #72-2668 
72-2668 #72-2668 72-266 #72-2668 72-2668 as: 668 72-2668 # 5 682 #722682 72-2682 
#72-2682 -2682 #72-2682 2682 #72- obs 72- Ore 472-2688 8&7 =5¢ 72-2688 #72-2688 
72-2688 #72-268 72-2688 #72-2688 72-2 #72-269 #72-2695 72-269 #72-2695 72-2695 
#72-2695 72-269 #72-2695 72-2695 8#7e-2 $8 #72-2706 72-2706 = #7, ~$508 72-2706 §3= #722706 
72-2706 8 #72-2706 72-2706 §=#72-2710 3= #72271 72-2710 #72-2710 72-2710 #72-2710 72-2710 






cZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 PAGE 23 
pov CROSS REFERENCE CREF SEQ 0145 
34 #74-2734 74-2734 74-2734 874-2734 

734 74-27 74-2734 = # 74-2734 





REFERENCES 
ie als 72-2710 #72-2714 #72-2714 72-2714 #74-27 
74- hs #74-27 734 74-2734 #74-27 74-2734 
7 737 3=— #74=2737 74-2737 74- ate 474-2737 74-2737 74-2737 «= # 74-2737 
74- ate 74-2737 «=— # 74-2737 74-2737 = #474=2737 o-5! 7 #74-2737 74-2737 74-2737 «= #74-2737 
74-2737 74-2737 = #74-2740 = #74~2740 74-2740 3474-2740 74-2740 #74-2740 74-2740 4-274 
#74~2740 74-2740 74-2740 = #74-2744 74-2744 82-2879 82-2879  #82-2894 22-2894 2894 
82-2894  #82-2895  #82-2895 -2895  #82-2895 82-2895  #82-2895 2895  #82-2895 2-2895 
82-2895 Ss 895 82-2895 #82-2897  #82-2897 82-2897  #82-2897 2897  #82-2897 22-2897 
#82-2897 82-2897  #82-2897 2897 82-2897  #82-2935 82-2935  #82-2935 $e $528 #82-2937 
82-2937 #82-2937 82-2937  #84-2948 Begone #84-2961 84-2961 - m t+ H4 a oa 344 
84-2970 #86-3019  #86-3019 #86-3019 g6- 019 #86-3019 86-30 #86-3019 
#86-3020 #86-3020 86-3020 #86-3020 86-3020 #86-3020 36" 308 : #86-3020 
86-3020 #88-3054  #88-3054 88~30 88-30 #88-3054 88-3054  #88-3054 88-3054 88-30 
#88-3054 88-3054 me #88-3059 #88-3059 88-3059 488-3059 88-3059 88-3059  #88-3059 
88-3059 88-305 #88-3061  #88-3061 55. #88-3061 88-3061 88-3 #88- 88- 
88-3061 #89-3132 89-3132 89-3134 #89-31 89-3134  #89-31 89-3134 89-3134 #89-3134 
89-3134 89-3134  #89-3135 89-3135 #89-3136 #89-3136 89-3136 #89-3136 89-3136 19-3136 
#89-3136 89-3136 89-31 #89-3137 89-3137  #89-3152 hea ET 89-315 #89-315 89-315 
a me tS 89-315 89-3152 ph tag HET ab EY 89-315 #89-315 #89-315 89-315 #89-315 
89-315 #89-315 89-31 #89-315 89-315 #89-315 89-3153 89-3153 #89-3153 89-3153 
#89-3153 89-3153 #89-315 89-3153 #89-3153 89-3155 #89-3153 1 89-315 #89-3153 
89-3153 89-3153 #89-3163 #89-3163 89-3165 #89-3163 9-3163 #89-3163 89-3163 #89-3163 
89-3165 #89-3163 89-3163 89-3163  #89-3163 89-3163  #89-3163 3163 #89-3163 89-3163 
#89-3163 3163 #89-3163 89-3163 89-3163 #89-3163 89-3163 89-3163 #89-3176 89-3176 
#91-3207 = «91-3207 9 #91-3207 =_-«9'1-3207 «= #91-3208 §=—«_-«9'1-3208 = #91-3227 §=— #91-3227 = «91-5227 =— #91 -3227 
91-3227 #91-3227 91-3227 #91-3227 1-3227 #91-322 91-3228  #91-32 91-3254 #91-32 
91-3254 #91-3234 91-3234 #91-3255 91-3255 491-324 oot 3506 91-3247 891-3247 3 =—-_- 91-3247 
#91~-3247 = 91-3247 = #91-3247 91-3247 #91-3248 91-3248 #91-3 $ 91-3285 #91-3285 91-3285 
#91-3315 91-3315 #93- #93-3334 -3334 #93-3334 93-33 #93- 93-3334 3 
93-3334  #93-3334 93-3334 93-3334 #93-3345 93-3345 #93-3345 93-3345 #93-3346 93-3346 
#93~3354 #93-3354 93-3354  #93-3354 93-3354 93-3354 #93-3354 93-3354 93-3354 #93-3357 


3413 9 #97-3413 97-3413 97-3413  #97-3413 97-3413 3413 #97-343 97-3433 #99-3478 

78 = #102=3545 = 102-3545 -#102-3545 §=— 102-3545 #102-3552 = 102-3552 94104-3559 104-3559 #104-3559 
104-3559 #104-3579 104-3579 #106-3589 106-3589 106-3589 106-3589 #106-3621 106-3621 #108-3629 
108-3629 #108-3629 108-3629 #108-3653 108-3653 a1 19-3660 110-3660 #11 110- #110-3684 
11 #112-3691 = 112-3691 -#112-3691 a ag 34 #112-371 112-3715 #114-3722 114-3722 9 #114-3722 
114-3722 #114-3746 =—-114-3746 #116-3758 = 116-3758 =#116-3758 aS at 18 #116-3848 #116-3848 116-3848 
#116-3848 116-3848 116-3848 #116-3848 116- ? 116-3848 #116-3855 #116-3855 116-3855 #116-3855 
116-3855 #116-3855 116-3855 116-3855 #116-385 116-3839 116-3855 #116-3857 #116-3857 116-3857 
#116-3857 = 116-3857 116-3857 §=—.116-3857 = 116-3857 94116-3857 §=—116-3857 = 116-3857 99116-3859 4116-3859 
116-3859 #116-3859 116-3859 #116-3859 116-3859 116-3859 #116-3859 116-3859 116-3859 WIG 3568 
116- #122-3995 122-3995 #122- 122-3998 122-3998 122-3998 122-3998 Wiss- 999 122-3999 
122-3999 1s -3999 1$5 2999 #122-4000 1 $-2 122-4000 \$5- 000 #122-4001 1 ~289) 15-300) 
122-4001 #122-4002 1 ~2508 122-4 122-4002 #122-4010 122-4010 #124-4038 124-40 #124-4039 
124-4039 124-4039 1 $7-7h7 124-4039 124-4039 #124-404 1 $7 04 £72038 124-4040 #124-4041 
124-4041 124-4041 124-4041 #124-4042 1 $en-thet 124-404 124-404 4-404 124-4043 124-4043 
124-4043 #1 yaart'r: 124-4044 1 50-4088 124-4044 124-4044 124-4044 124-4045 124-4045 124-4045 
orgs #124-4052 124-4052 #126-4072 126-4072 126-4072 126-4072 #126-4076 #126-4076 126-4076 

MSGNTA #8-552 8 57 





#8-552 #9-578 #9-578 474-2744 = #74-2744 = 484-2948 §=— #B4-2948 =: # 84-2961 eee 379! 
#89-3176 = 489-3176 «= 91-3515 = #91-3315 = #93-3346 «= #93-3346 «= #95-5395 §=—- #955395 = #97-3453 =: #97- 3433 





D 12 


cZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 PAGE 24 
MACRO CROSS wth 43 CREF SEQ 0146 
MACRO NAME eRe Mees 
347 Ay -333 Abe 333 #104-3579 9 #104-3579 #106-3621 #106-3621 #108-3653 #108-3653 
10-3 10-36 #11 #114-3746 = #114-3746 116-3868 4116-3868 #122-4010 #122-4010 
#124-40 § #124405 4126-407 ATs am: 26 ATs aw 1 #126-4081 
MSGNTE PAL at Se! Aba 43 #104-355 104 3 57 #106-3 : “338 #108-3627 #108-3627 #110-3658 #110-3658 
112-368 112-3689 4114-3720 #114-3720 #116-3751 #116-3751 
2 
MSINCR #5-477 #5-477 #6-503 #6-503 #6-503 #6-503 #8-539 #8-539 #8-539 #8-539 
561 ~561 561 #9-561 #10-633 #10-633 #47-1736 49-1823 #49-1824  #49-1826 
#52-1947 2-2252 #68-2480  #68-2485 oge-ss #68-2490 #68-2504 “2511 #68-2519  #72-2 
#72-2682 #72-2688 #72-2695 #72-2706 #722710 #722714 #74-2727 =— #742727 oa 55%s #74-2727 
474-2734 «= #74-2737 = #74~2740) = 74-2744 «= 82-2879 = #B2-2894 §=— #B2-2895 §=— #B2-2897 §=—6 #B2-2935 = #8 2- 2937 
oe tor 84-2944 884-2944 884-2944 884-2952  #84-2952 oa5-$) 84-295 om #84-2970 
#86-3019 woe 3068 #88-3054 #88-305 88-3061 #89-3117  #89-311 #89-3124 889-3124 #89-3124 
#89-3124 889-3132 «89-3134 889-3135 489-31 89-3137 #89-3152 #89-3153 #89-3163 89-317 
#91-320 des #31369 oot 3895 oot 8845 ot 3855 13668 #91-3234 =#91-3247 = #91-3248 
#91-3285 #91-331 #93-3332 = #93~3 #93-35352 o33-3 2 #93-3 #93-3345 =#93-3346 939 - #93-3554 
93-3357 «= #95-3369 «§=—- #95-3369 §9=—- #95 -3369 «=. #953369 §=—- #953374 «= #95-3395 §=—- #97-3405 39-97-3405 89— #97- 3405 
7-3405_ - #97-3413 ~3433 3455 3455_  #99-3455 3455 3478 8102-3540 #102-3540 
#102=3543 #102-3543 #102-3543 #102-3543 = #102-3543 «4102-3543 Ab rag tet Ab sme FF #104-3557 #104-3557 
#106-3557 #104-3557 104-3557 4104-3557 #104-3559 #104-3579 106-3587 #106-3587 #106-3587 #106-3587 
#106-3587 #106-3587 #106-3589 Ate a 621 #108-3627 #108-3627 Abe ars} #108-3627 #108- #108-3627 
#108-3629 #108-3653 #110-3658 4110-3658 #110-5658 110-3658 #11 8 #110-3658 #110- 110-3684 
112-3689 #112-3689 #112-3689 ABT as 34 3689 4112-3689 #112-3691 9 #112-3715 4114-3720 #114-3720 
114-3720 #114-3720 = #114-3720 4114-3720 4114-3722 114-3746 «4116-3751 «116-3751 94116-3751 94116-3751 
#116-3751 9=#116-3751 «= #116-3758 «4116-3848 4116-3855 4116-3857 4116-3859 4116-3868 4122-3984 #122-3984 
122-3995 #122-3995 #122-3995 122-3995 #124-4038 4124-4038 4124-4038 #124-4058 #126-4075 #126-4075 
#126-4076 #126-4076 #126-4076 #126-4076 
MSLDRO #72-2714 72-2714 oes shee 2894 wee S3e> 82-2935  #82-2937 82-2937 #91-3207 91-3207 
#91-3234 91-3234 #93-3345 ~3345 3357 = 93-3357 
MSMCHI #5-451 #5-451 
MSMCLO #5-451 #5~451 
MSPOP #6-507 6-507 #8-552 8-552 #9-578 9-578 #9-580 580 #74~2744 74-2744 
#84-2948 oc -$3e8 se typ 84-2961 #88-3073 88-3073 #89-3176 89-3176 #89-3192 89-3192 
#91-331 91-3315 #93-334 93-3346 #95-3395 95-3395 rf 3 97-3433 #99-3478 99-3478 
#102-3552 10g 3538 #104-357 104-3579 #106-3621 106-3621 #108-3653 108-3653 #110-3684 110-3684 
#112-3715) = 112-3715 «= -#114-374 114-3746 #116-3868 116-3868 #120-3919 120-3919 #122-4010 122-4010 
#124-4052 BY weve #126-407 126-4073 
MSPRIN #68-2480 2480 #68-2485  #68-2485  #68- 7s #68-2488  #68-2490 7 490  #68-2504 25 
rata eee ea #68-2519  #68-2519 ora 474-2734 «= #742737 «= #742737 = #742740 pio ie, 
#86- #86- 44 #88-5054  #88-3054 88-3059 #88-5061  #88-5061  #89-3134 1 
#89-31 #89-31 #89-3152 #89-3152 189 133 89-3153 #89-3163_ #89-3163_ 493-3354 493-335 
997-3415 = #973413 = 116-3848 94116-3848 116-3855 4116-3855 4116-3857 ger #116-3859 #116-3859 
MSPUSH #5~477 #5~-477 ~503 oer 03 #8-539 #8-539 #9~-561 #9~ $1 #10-65. #10-633 
Ab CLA ort $565 # “$338 a “$335 oe $3c5 #84- 325 89-3117 §=#89-3117 9 #89- iss oe #89-31 : 
#91- $02 #91- 454 ~3332_  #93-3332_ -#95- $6 #95~-53 #97-3405_  #97-3405_  #99-3455 
#102-5540 #102-3540 At wt ret #102-3543 #104-3557 #104-3557 #106-3587 #106-3587 #108-3627 #108-3627 
#110-3658 #110-3658 #112-3689 #112-3689 #114-3720 114-3720 #116-3751 116-3751 #122-3984 = #122- 
#122-3995 = #122-3995 #124-4038 #124-4038 
MSPUT #68-2480  #68-2480  #68-2480 oem yy 968-338) 485 #68- $8) #68-2485 #68-2485  #68-2488 premise 
#68-2488 868-2490 868-2490 #68-2490 #68- 94 #68-2504 #68-2511 #68-2511 #68-2511 
#68-2511 #68-2519  #68-2519  #68-2519 474-3754 #74~2734 = #74-2734 «= 74-2734 = 74-2734 «= 74-2734 





ZTUUC 


MSPUT1 


MSRADI 


MSRNRO 
MSSETS 


MSSVC 


#95-3395 


aii6-3848 


93- 
95-3395 


C CREATED BY MACRO ON 25-SEP-81 AT 10:08 
MACRO CROSS REFERENCE 
MACRO NAME R 


#74-2737 


#97~3413 


474-2737 


4 
848 
#116-3857 
#122-3999 
e 


97-3413 


#104-35 
9 #114-3720 


E 12 


PAGE 25 
CREF 


#74-2737 


#116-3855 
#116-3857 


#122-4000 
#124-4041 


49-1824 


#97~3433 


474-2737 


a9 
#116-3855 


468-2480 
468-2488 


#116-3857 


#122-4000 
124-4041 


#104-3557 
#114-3720 


#49~1826 
8 


re 


97-3433 


474-2737 


#116-3857 
#68-2485 
490 


#116-3855 
#116-3859 


#122-4001 
#124-4042 


“3387 
#116-3751 
68-2488 


#74-2740 
#82- 444 


3 
#116-3855 
#116-3859 


#122-4001 
#124-4042 


#52-1947 
490 


#74-2740 
al 


#68-2485 
#68- 


#116-3855 
#116-3859 


#122-400 
#124-404 


#10-633 
#89- igs 
#99-3455 


#108-362 
#122-3984 
52-1947 

4 


#102-3545 


SEQ 0147 


474-2740 
7 


468-2485 
90 


3 
#116-3855 
#116-3859 


#122-4002 
#124-4045 


#10-633 
#89-3124 
#99-3455 


7 #108-3627 


#122-3984 
#62-2252 
04 


102-3545 





CREATED BY MACRO ON 25-SEP-81 AT 10:08 


Cz 
MACRO CROSS REFERENCE 
MACRO NAME 


05-855 


#1 
#112-3715 


72-2715 





s 


Ae 
wo 


SSuN 





#106-3589 


79 
#116-3758 


49-1826 
2488 


#102-3545 
#106-3621 
#112-3691 
#116-3848 


89-3173 
116-3859 


68-2456 
80-2834 
89-3128 





G 12 
CZTUUC CREATED BY MACRO ON 25-SEP-81 AT 10:08 PAGE 27 
MACRO CROSS REFERENCE CREF SEQ 0149 
MACRO NAME REFERENCES 
Re 9= 97-3497 97-3408 


1 
mae a8 
RFLAGS #91-3285 
SETPRI =2894 
SETVEC -2895 gerge”” 93-3334 
Svc #5-450 5-451 
SWAPIN ! mt 4 a t44 #6491784 #69-1791 #649-1812 
TSTID #35-151 102-3544 104-3558 106-3588 108-3628 110-3659 112-3690 114-3721 
TUREAD 431-1396 #106-3597 #110-3670 114-37 
TURTRY #29-1319 #106-3596 4106-3597 #108-3639 #110-3670 4112-3701 #114-3732 
TUSEEK #27-1257 104-356 
TUSELF #33-1471 #102-3547 
TUWRIT #25-1149 106-3596 108-3639 112-3701 


